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by Jan C. Carr 1 



INTRODUCTION 



A system for collection, preparation, translation, 
and computer reduction of digital hydrologic data has 
been developed at the Northeast Watershed Research 
Center, University Park, Pa, This system represents a 
significant improvement over the tedious handwork of 
visually recording data from a pen trace chart. 

The use of digital-recording hydrologic gages pre- 
sents several problems in the development of a data- 
processing system. (1) Visual inspection of recorded 
data to detect instrument abnormalities and correction 
or identification of such malfunction errors is practi- 
cally impossible. Thus, operators rely on the computer 
for detection of these errors more so than on analog 
chart data. (2) The amount of recorded data produced 
is large, because the readout device operates continu- 
ously; however, this volume of records is easily handled 
by high-speed computers. (3) One advantage of this 
recorder is minimum human-contributed errors. This is 
due to not having to transfer and correct data from 
charts to computer input form manually. 

Corrections may be made upon digital data records 
manually, but these are normally restricted to areas 
that tapes may have torn or that may have been 
disfigured by the recorder. In tills case, the proper gage 
reading must still be recognizable. (4) The ability of 
this recorder to run continuously and unattended for 
long periods of time is a great advantage, because fewer 
site visits are necessary, and less time is needed to 
identify, process, and store the records. 



The following sections describe this data-collecting 
and processing system for digital hydrologic data. Field 
data collected from the Mahantango Research Water- 
shed located near Klingerstown, Pa., was used to 
illustrate the operation of the system. A flow diagram 
of the system is shown in figure 1 . 
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'Hydrologic technician, Northeast Watershed Research 
Center, Northeastern Region, Agricultural Research Service, 
U,S. Department of Agriculture, University Park, Pa. 



Figure 1,-A flow diagram of the digital hydrologic data- 
handling system. 



DIGITAL-RECORDING GAGES 



The type of digital recorders used on the Mahan- 
tango Watershed network are the Fischer and Porter 
precipitation gage (fig. 2), water level gage (fig. 3), and 
tide gage (fig. 4). 2 

The precipitation gage mechanically converts the 
depth of accumulated precipitation onto a binary- 
coded, punched paper tape at selected time intervals. 
This gage has a standard 8-inch orifice, collector 
capacity of 20.0 inches, and recording accuracy to the 
nearest 0.1 inch. A rain trace sensor is incorporated 
within the gage collector to provide a more accurate 
record of the beginning and ending of precipitation 
events. This sensor operates normally during summer 
months. Timing for the collection of precipitation is 
done by a 5-minute, solid-state electronic timer driven 
by a d.c. power supply. The 5-minute-interval punch- 
out provides 105,000 readings per gage during a 1-year 
period. Of these readings, approximately 500 will 
suffice to describe precipitation events that occurred 
during the year. 

The water level gage incorporates a float, counter- 
balance pulley mechanism to transfer streamflow 
depths onto punched paper tape. This gage operates on 




Figure 2. -A digital-recording precipitation gage. 





Figure 3. -A digital-recording water level gage (streamflow). 



Fischer and Porter Company. Precipitation gage-recorder, 




Instr. Bui, 35-1558-1, punched-tope level recorder, Instr. Bui. 

-\ 541-4, Rev. 3. tide gage, Instr. Bui. 35-1550, Rev. I. 1970, Figure 4. -A digital-recording tide gage (ground water levels). 



a 5-minute-interval punchout s the precipitation gage. 
Approximately 10,000 of tnc 105,000 readings are 
needed to depict the fluctuations of stream depths 
during the year. 

The tide gage for recording ground water well levels 
differs from the water level gage, The gage uses a 
counterbalance spring in place of a counterweight to 
facilitate measuring water levels in a well pipe, where 
sufficient room is not available for a counter weight. 
Both the tide gage and the water level gage record 



continuous water levels to (he nearest 0.01 foot up to 
50.00 and 99.99 feet, respectively. The tide gage 
operates on a 30-ininutc-time-in(erval puncliout, with 
each of the 17,520 readings per year used lo describe 
continuous well levels during the year. 

Each gage's punchout mechanism may be operated 
manually by means of a switch. This manual operation 
provides a test on punchout alignment and gage time 
versus clock time synchronization. 



DIGITAL PUNCH PAPER TAPE 



The punch paper tapes shown (fig. 5) have a width 
of 2 1/8 inches, and a length that varies with available 
time scales. One day's record with a S-minute time 
scale requires 28 5/8 inches of tape length, while a 
30-minute time scale requires 4 7/8 inches, 

The paper tape is divided along its length into 
crosswise lines which represent the clock time at which 
punchout occurs (see fig, 5). A 5-minute tape is 
identified at 10-minute-increments in the center of the 
tape. Hour lines are marked by heavier lines and are 
identified in the military time scale. Each day on the 
tape is consecutively stamped with red numerals, These 
provide a count of the total tape days elapsed from 
beginning to end of a record period. 
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The tape is divided into 1 6 channels, two wide black 
lines, an area along the tape center that contains the 
time interval markings, and large sprocket drive holes 
that are used by the recorder to feed paper tape. The 
16 channels are subdivided into four groups of four 
channels each. In the individual groups, channels are 
binary coded "1-24-8." 

Any number can be represented by the appropriate 
selection of these codes. Those codes not selected are 
zero. For example, using the tape for precipitation (fig. 
5A), a summation of the farthest rigiit-hancl group of 
punched holes establishes the tenths digit. The next 
group, moving from right to left, gives the units digit, 
and the third group provides the tens digit, Since the 
recording accuracy of this gage is to the nearest tenth 
of an inch, and since capacity is 20 inches, these three 
groups provide a three-digit precipitation readout, 
leaving the hundreds digit, or the fourth and final 
group, unused. Normally, during the summer months 
when the rain-trace sensor is operative, a trace of rain is 
noted by a trace punchout in the binary 8 channel of 
the fourth group. 

The punched paper tape (fig. SB) used in stream- 
flow recording is identical to the tape in figure 5A, 
except that the four groups provide a different 
numerical representation, The first group represents 
the hundredths digit; the second group, the tenths 
digit; the third group, the units digit; and the fourth 
group, the tens digit of a four-digit number. The 
ground water level punch paper tape (fig. 5C) differs 
from the streamflow tape (fig. 5B) only in its time 
scale. The two wide black lines shown on each tape are 
channels for the placement of translator alignment 
holes, which are automatically punched in the tape 
during each 5- or 30-minute -punchout to provide 
proper tape alignment during the paper-tape-to- 
magnetic-tape translation. 



Figure 5. -Digital punch paper tape usoge. 



GAGE LOCATION IDENTIFICATION 



A one-half-square-mile grid system was developed 
for the Maliantango Watershed to identify each gage by 
a numerical location code (fig. 6). The north to south 
grid lines represent parallel longitude, while the east to 
west lines represent parallel latitude. Grid squares were 
lettered alphabetically A through U from north to 
south, and numbered 1 to 65 from east to west, 
respectively. Further subdivision of individual grids can 
be provided to give more accurate gage locations, 

A prefix was used in conjunction with the gage 
location to indicate the type of instrument as follows: 
R - An individual rain gage location. 
M - Meteorological sites (rain gage, evaporation, 

wind, humidity, and temperature station). 
G - Open-channel stream-gaging station. 
W - Weir-control stream-gaging station. 
A - Aquifer (ground water well station). 
Example: RG32 is a rain gage recorder station. R 
designates rain gage ) and G32 is the grid square 
location code of the gage on Line G and Column 32, 



A watershed identification number, developed by 
the Agricultural Research Service, was used to desig- 
nate the State and watershed location within the State. 
The State location number assigned to the Mahantango 
Watershed, Pa., is 16, Each of the six sub watersheds 
within Mahantango Watershed were numbered 0,01 
through 0.06, and the watershed identification num- 
bers, referred to as IWID, are as follows: 



Sub watershed 

Mahantango Creek 

Deep Creek 

Little Mahantango Creek 

Pine Creek 

Run Stella Run 

Three -Square Mile 



Stream Gage 

GR04 

WO16 

GK27 

GM27 

WJ30 

WE38 



IWID 

16.01 
16,02 
16.03 
16.04 
16.05 
16.06 



The combination of watershed identification and gage 
location numbers provides sufficient numerical repre- 
sentations of a particular gage within a certain water- 
shed. 
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Figure 6. -The gage location grid system. 
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PAPER TAPE DATA COLLECTION 



The maximum paper tape collection period varies, 
depending upon the punchout timing cycle. Experience 
with (he Mahantango network has indicated that a 
monthly collection period is most efficient when those 
gages arc operated on a 5-mlmite time cycle, and 
twice a year for those gages on 30-minute cycles. The 
punched records are stored by the gage on a takeup 
spool, with the beginning of the collection period 
located on the inside of the rolled tape. 

A 10- to 1 2-inch length of unpunchcd tape precedes 
the punched record. The unpunchcd urea is used to 
record notes such as gage number, beginning date, 
time, and punched value. Prior to the start of record- 
ing, a series of six or more manually initiated punch- 
outs are placed in the tape in the area beyond the 
notes. These punchouls supply the feed alignment 
holes required during the translation procedure, A red 
felt-tip marker line is drawn across the beginning 
punchout of the collection period. This line separates 
the first gage punchout time interval from the preced- 
ing manual punchouts and provides a visual notation of 
the actual beginning of record. 

The current paper tape record begins with the time 
that the previous tape ended, resulting in duplicate 
punchouts between each collection period. The pur- 
pose for following this procedure is to establish a 
standard method for removal and installation of the 
paper tape records. The computer reduction step is 



designed to take into account that duplicate punchout 
times exist between each tape record. 

Two exceptions to this standard method may occur. 
A complete loss of data, due to gage failure, would 
require the following tape to begin with the present 
watch lime, and a special notation of the data loss 
would be made (see Loss Data Cards, "Computer Input 
Section"). A time loss or gain, either of which can 
occur with the digital gage, will also require a special 
notation. In this case, the beginning punchout of the 
following paper tape will not be identical with the 
ending punchout of the previous tape, but the new 
record would begin with the same watch time its the 
ending watch time of the preceding period. The special 
notation in the form of a numerical error code, 
described under the "Paper Tape Data Preparation" 
Section, would be noted on the tape record which had 
the punchout time loss or gain. 

With the established method of tape removal and 
installation, the manual punching mechanism is used to 
synchronize each paper tape collection period to 
standard watch time. A minimum of 6 inches of 
unpunchcd tape must follow each collection period. 
This length is needed during the translation procedure. 
A field check list (table 1) is kept of the paper tape 
records for each gage. The field notes supply a 
complete gage history. 



TABLE I -A field check list depicting information from a precipitation gage recorder 



FIELD CHECK LIST FOR F&P RECORDERS 
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SYNCHRONIZATION 








Correct E.S.T. 
Tape Time 
Time Correction 
Tape Day No. 
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Tape No. 
Days Remaining on Tape 
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Battery Replaced 
Voltage Across Battery 
Voltage Across Motor 
ma Drain of Timer 
ma Drain at Punchout 

OPERATION 
Evap. Suppression Oil 
Dashpot Fluid Added 
Contacts Cleaned 
Material in Collector 
Mechanical Malfunction 

SEASONAL OPERATION 
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Trace Battery Voltage 
Funnel (In or Out) 
Antifreeze Installed 
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(D^) (Make Additional Comments on flack) 



PAPER TAPE DATA PREPARATION 



A hand-operated roller Is used to rewind the paper 
tape record to place the beginning of the record period 
on the outside of the roll. The hollow core of the 
rewound tape must be at least three- fourths of an inch 
in diameter to meet the requirements of the translator 
supply spool. During the rewinding of the tape, a visual 



scan is made for detectable errors. A four-digit, 
error-coding system was developed for use in identify- 
ing any gage malfunctions, such as time loss or gain- 
Each paper tape record is coded by one of these error 
codes (App. I), The rerolled paper tape records are 
labeled (fig. 7) as to State watershed number (IWID), 




Figure 7. -A paper tape record identification label. 



gage location number, trace operation, punchout time 
interval, beginning and ending date, time, punched 
value, and error code. 



The information from the tape identification labels 
is transferred to a "paper tape identification form" 
(table 2). Bach horizontal line represents a record 



TABLE 2.~Paper tape identification form (precipitation, stream/low, and ground water) 
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period (paper tape). Cards keypunched from the form 
serve as program controls during the computer reduc- 
tion of the paper tape record. The form heading 
contains space for the State, the Slate watershed 
location number (IWID), watershed name, and year of 
data collection. Each record is identified as follows: 



Card Columns 

1-4 

5-16 

17-18 

19 

20 

21-32 

33-36 

37-48 

49-52 
53 

54-56 
57-62 



Identification 

The paper tape error code. 
The gage location number. 
The punchout time interval. 
The type of data. 
The trace indicator code. 
Beginning time-month, day, year, 
hour, and minutes, respectively. 
The first punched-data value. 
Ending time-month, day, year, hour, 
and minute, respectively. 
The last punched-data value. 
Translation error codes. 
Computer control codes. 
Mean sea level (ground water record- 
ings only). 



In addition to the above information, optional daily 
snowfall records are kept of days with precipitation 
other than rainfall. This record is used to identify days 
of solid precipitation on the computer output data. 
The information is recorded upon a snow dale record 
form (table 3). This form contains the date and type of 



precipitation where the key at the bottom of the form 
explains the proper coding used under the "Type of 
Precipitation" column. 

After the completion of rewinding, scanning, and 
identifying the paper tape records and the recording of 
appropriate information onto forms, the tapes are 
transported and stored in a 101/2-by-7 l/2-by-2-inch 
flat polyethylene freezer box. Each box can hold 
1-year's record from 5-minute-inierval gages. 

TABU-. 3. -Snow date form table 
Month Day Year Ty\K NGC^S 
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Type Key: S = Snow 

L = Sleet 

M = Mixed Precipitation (Rain, Snow, Sleet) 

N = Rain anil Snow 

II - Mail 



PAPER-TAPE-TO-MAGNETIC-TAPE TRANSLATION 



Digital paper tape records in the original form 
cannot be used as direct input to digital computers 
without special interface equipment. Therefore, the 
paper tape data must be converted to a suitable media 
(usually cards or magnetic tape). This Center employs 
the paper-tape-to-magnetic-tape converting method. 

The Digi-Data Model 1730 translator (fig. 8) uses 
sensing pins to read punched paper tape. 3 The informa- 
tion from the binary punched holes is converted to an 
equivalent four-digit number and electronically records 
this reading on a seven-channel, 556 DPI, IBM-compat- 
ible magnetic tape. Each four-digit number represents a 
5- or 30-mimite-interval gage reading, depending on the 



3 DigJ-Data Corporation. Operation manual model 1730 
converter (translator). 1970, 



data being translated. The paper tape readings are 
converted to magnetic tape at a rate of 18 paper tape 
time intervals per second. The records are automati- 
cally blocked every 1 ,020 digits. An interrecord gap of 
three-fourths of an inch is written between each block. 
This blocking, combined with the interrecord gap, 
meets the requirements of most computer magnetic- 
tape reading devices. 

The model 1730 contains a feature for entering 
fixed data settings of either 11 or four digits. Eleven 
windows are available to enable dialing a digit into each 
window. The individual digits can range from to 9. 
Two controls, numbers 1 1 and 4, provide for writing 
an 1 1- or four-digit number on the magnetic tape. 

The 11 -digit control is available to enter the label 
information from the paper tapes being translated. This 




Figure 8. -A paper-tape-to-magnetic-tapc translator. 

method of entering the label information onto the 
magnetic tape is slow and provides opportunity for 
human error. Thus, the 11-digit control is not used 
with this translation procedure, since the label informa- 
tion will be fed into the computer through cards 
keypunched from the "Paper Tape Identification 
Form" (table 2). 

The four-digit control has a twofold purpose. It is 
used to enter data from the paper tape record when 
misaligned punched readings cause the translator to 
stop. The value of the punched reading missed may be 
entered directly on the magnetic tape in the last four 
windows of the 1 1 windows. Since each paper tape 
record represents a different collection period and 
possibly a new error code, every paper tape record is 
translated as a separate record. To enable the computer 
to differentiate between paper tapes, a numerical code 
of 9999 is written on the magnetic tape through the 
use of the number 4 digit control. The "four 9's" code 
signals the end of a paper tape record and is applied 
after each paper tape's translation. 

The original design of the model 1730 translator 
was such that zero gage readings, nonpunched values, 
could not be read. This feature allowed the translator 
to stop translation of a paper tape when the 6-inch 
blank span at the end of the paper tape was en- 
countered, The ability to translate zero readings is 

:essary when precipitation data are being converted. 



The construction of the precipitation gage is such 
that after a collection of 15.0 to 19.9 inches of 
precipitation, the collector part must be emptied and 
the following recording period begun with zero gage 
readings. These zero readings will be present on the 
paper tape until the first precipitation event. To 
provide for precipitation data translation, the model 
1730 was modified by installation of a "zero suppres- 
sion" toggle switch. This switch resides in one of two 
positions, normal or nonnormai. The normal position 
does not allow the translator to read zero values, thus 
stopping translation on encounter with unpunched 
tape, and the nonnormai position allows translation of 
zero gage values. 

The procedure for paper-tape-to-magnetic-tape 
translation can vary with the model 1730, but with 
ease of operation and speed as a criteria, the following 
step-by-step procedure is recommended: 

1. Load the magnetic tape on a supply spool that 
is located on top of the translator and hand 
threaded through the proper path to a takeup 
spool. A tape-loading diagram is supplied by the 
manufacturer. The tape spools handle varied 
sizes of computer magnetic tape up to 10 1/2- 
inch reels. 

2. Set Recorder Mode Switch to the record posi- 
tion and turn power on. The function of the 
Recorder Mode Switch is to specify one of the 
following three options: record, rewind, and 
fast forward wind. 

3. Press the Record Length Counter (RLC) con- 
trol. This control energizes the magnetic tape 
blocking counter. Every 1,020 digits are 
blocked, plus an Interrecord gap on the mag- 
netic tape, by the automatic blocking feature, 

4. Press Begin of Magnetic Tape (BOT) control. 
The magnetic tape advances until a photocell 
sensing light encounters an aluminum foil re- 
flective mark attached to the tape some 10 feet 
into the supply spool, The mark provides an 
exact starting point for recording, which en- 
ables a computer-tape-read device to index at 
the proper beginning of the magnetic tape data. 

5. Set Zero Suppression Switch to the normal 
position if reading nonzero paper tape data. Set 
to the nonnormai position to read data with 
beginning zero values, 

6. Load first paper tape record onto the trans- 
lator-read head, The beginning of record on the 
paper tape, as identified by the red marker line,, 
is aligned so as to be the first punched value 
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read and converted. Proper indexing of this line 
assures the appropriate beginning clock and 
paper tape time synchronization. 

7. Press Stan Control Button, The paper-tape- 
to-magnetic-tape conversion continues until the 
end of the paper tape is encountered. The 
position of the Zero Suppression Switch is 
important during the translation. If the switch 
position was nonnormal at the start of trans- 
lation, it must be placed at the normal position 
as soon as the first nonzero punched values 
appear in the paper tape. If the translation 
stops because of misaligned paper tape punches, 
the value of the reading prior to the stop point 
is dialed into the last (most right hand) four 
fixed-data windows, and the number 4 control 
is pressed. This reading is converted to the 
magnetic tape. Repress the Start Control. 
Translation will continue until the blank span 



at end of paper tape automatically stops trans- 
lator. 

8. Remove the paper tape from the translator-read 
head. Dial 9999 code into the last four fixed- 
data windows and press 4 control. This code is 
applied after the translation of each paper tape. 
A paper tape requires from 4 to 6 minutes for 
loading, translation, and removal. 

9. Place two encl-of-file marks, by means of an 
EOF Control, when the last paper tape record 
for the run has been translated, and the four 9 l s 
code has been applied. The end-of-file marks 
are recognized by the computer as the end of 
all data on the magnetic tape. The feature is 
used only as an end of all data. 

10. Place the Record Mode Switch in the Rewind 
position after completion of the translation. 
The magnetic tape rewinds onto the supply 
spool and is removed, identified, and stored 
prior to computer reduction. 



TRANSLATION PROCEDURE ERRORS 



The translation procedure can provide some oppor- 
tunities for human error. A translator operator may 
mistakenly write on the magnetic tape an incorrect 
control code at the end of a paper tape. The operator, 
realizing that the error may have occurred, can take 
appropriate steps to have the computer correct the 
error by use of the proper numerical code from table 4. 

TABLE 4. -Translator operator errors 
(Coded in Column 53, Paper Tape Identification Form) 

Code Type of Translator Operator Error 

or Blank No errors during paper tape translation. 

1 The four 9's, or EOF end-of-paper-tape control, 
left off magnetic tape after the paper tape 
translation. 

2 Two end-of-paper-tape controls of four 9's or 
EOFs were mistakenly written on magnetic tape. 

3 A value other than the four 9's or EOF control 
was written on magnetic tape. 

4 The "Zero Suppression" switch left in the non- 
normal position. Paper tape continued to nm, 
extra zeros on magnetic tape. The four 9's or 
EOF control was placed at end of the zeros. 

5 The same problem as Code 4, except failed to 
write the four 9's control on magnetic tape at 
end of zeros. 



The desired code is entered in column 53 of the 
Paper Tape Identification Form (table 2), opposite the 
paper tape on which the error occurred. Any code 
from table 4, other than zero or blank, tells the 
computer to use a supplied ending date and time to 
determine the end of a paper tape. If the instrument 
error code (App. 1) for the paper tape is 1,000, with 
good data tape with no apparent errors, the supplied 
ending date and time for the tape would be the same as 
the ending date and time shown on the tape label. 

When the instrument error code specifies a time gain 
or loss, a manually calculated ending date and time for 
the paper tape must be determined. This calculation is 
performed as follows; (a) Count the number of punch- 
out intervals for the paper tape period, which will give 
the number of 5- or 30-minute intervals for the tape 
period, (b) Divide the count into days, hours, and 
minutes, and add to the paper tape's beginning 
punchout date and time, which establishes the actual 
tape punchout ending date and time, (c) Keypunch this 
time on a data card. The description of this extra card 
(Translator Error Card) is given in the next section. 
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COMPUTER INPUT DATA 



The computer input consists of botli keypunch 
cards and the translator-produced magnetic tape. The 
cards are standard 80-column pimchcards. The input 
card variables, proper coding of these variables, and (he 
type of format are described under each card layout. 
The following format code is adhered to: 



A 



X = 



Integer number, right justified in card field. 
Real number, contains a decimal point loca- 
tion. Decimal point not punched on the card, 
Alphanumeric, number or letter, left justified 
in the card field. 
Blank card field, not used. 



CARD LAYOUTS 



Header Card 
(One Card -Required) 



Variable 


NHEAD 


NSC 


Format Code 


11 


13 


Card 
Columns 


1 


2-4 



Variable Description 

NHEAD The number of "page heading cards" to 
be read and written as headings on each 
computer output page. A maximum of 
three "page heading cards" may be read 
and written. This code is zero if no page 
headings are to be written on the 
printer. 

NSC The number of "snow date cards" to be 

read into storage. A zero coding indi- 
cates no "snow date cards" to be read. 
A maximum of 999 cards may be read. 
(See snow date card layout below). 



Page Heading Cards 

(A maximum of three cards, the number of cards 

must equal to NHEAD on the "Header Card"). (If 

NHEAD equals zero, this card layout is not 

needed). 



Variable 



HCARD(x) 



Format Code 



54A1 



Card 
Columns 



1-54 



The "x" notates an integer from 1 through 3. 
Variable Description 

HCARD Output Identification (See example be- 
low). Example: "Basic Precipitation 
Data (Break Point)" for HCARD (1). 
"NEWRC, University Park, Pa.", for 

HCARD (2). 

u 11 

for HCARD (3). ' 

Note: The State, watershed, and gage 
names are automatically written follow- 
ing the page headings. These variables 
receive values from the following con- 
trol and label card layouts. 
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Variable 



Format Code 

Card 

Columns 



Snow Date Card 

(Optional cards, use by precipitation datii only, one 
card for each day of precipitation other than snow). 

Note: If NSC on header card is zero, this card layout is 
not needed. 



NSDTE(x,ir 

12 

1-2 



NSDTIi(x,2) 2 


NSDTE(x,3) 2 


STYPE(x) 2 


12 


12 


Al 


3-4 


5-6 


7 



Variable 

NSDTE (x,l) 
NSDTE (x,2) 
NSDTE (x,3) 
STYPE (x) 



2 Numbers in parentheses represents indexes of computer storage tables, The "x" denotes a 
number beginning with 1 and ascending to 999. This provides storage for a possible 999 days of 
snowfall or similar precipitation . 

Description 



The month. 

The day. 

The last two digits of the year. 

The type of precipitation, see "snow 

date 11 form (table 1) for proper 

coding. 



The snow date cards are punched directly from the 
"snow date record form" on table 3. 

The following card layouts serve as program control 
and paper tape records information. The main portion 
of the card variables described obtain values from the 
"paper tape identification form' 1 (table 2). Cards may 
be keypunched directly from this form. 



Control Card 

(One card for each different gage's paper tape 

records contained on the translator magnetic tape) 

(Required). 



Variable 



STATI- 



IW1D 



WSH 



GAGE 



NPFG 



NTPT 



1EOF 



Formal Code 


A3 


14 


16A1 


3A4 


12 


12 


11 


Card 
Columns 


1-3 


4-7 


8-23 


24-35 


36-37 


38-39 


40 




IT 


KT 


OUT2 


NSKIP 


NOEOF 


KT1 


KT2 


12 


12 


A6 


11 


12 


12 


12 


4142 


43-44 


45-50 


51 


52-53 


54-55 


56-57 




KT3 


KT4 


NDST 


NEWDAT 


IGREF 






12 


12 


11 


11 


14 







Variable 
STATE 

IWID 
WSH 



58-59 60-61 62 63 64-67 

GAGE The gage location identification (ex- 

ample; Gage = RE38) (Maximum of 12 
characters). 

NPFG The number of paper tape records for 

the gage (example: NPFG = 12, paper 
tape records for the period are 12), 



Description 

The abbreviated State name, (example: 
Pennsylvania - Pa.). 

The State watershed location number 
(example: MahantangoCk., Pa. - 1601). 
The watershed name (example: Mahan- 
tango Ck.). 
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NDST 



NEWDAT 



Variable Description Variable 

NTPT The total number of paper tape records 

on the translator magnetic tape. This 
variable will be coded the same on each 
control card for the process, 
IEOF If 9999 (four 9's) is written on trans- 

lator tape after each paper tape, IEOF 
= 0. If end-of-file marks (EOF) are 
written after each paper tape, IEOF - I. 
IT The computer-read unit number on 

which the translator tape will be 
mounted during processing (Example: 
IT = 01). 

KT The computer- write unit number on 

which the output storage magnetic tape 
will be mounted. (Example: KT = 03). 
OUT2 The magnetic tape volume name on 

which the output storage data will be 
written (Example: OUT2 = MAH333). 
NSKIP When coded as 1, this variable will 

initiate a readout of a specified number 
of paper tape records from the trans- 
lator tape. The paper tapes read will be 
ignored, and processing will commence 
on the paper tape immediately follow- 
ing the last paper readout. The number 
of paper tapes to be read out will be IGREF 
coded under the following NOEOF vari- 
able. If no paper tape records are to he 
skipped, NSKIP will be coded as zero, 
and processing will begin on the first 
paper tape, 

NOEOF The number of paper tape records to be 
skipped on readout if NSKIP equals 1. 
NOEOF equals zero if NSKIP equals 
zero. 

KT1,KT2, These variables are control codes used 
KT3,and by the computer in writing an end-of- 
KT4 file on the output storage magnetic tape 

or tapes at completion of processing. 
The proper coding for these variables 
would be the same as the "KT" vari- 
ables used on any or all control cards. 
(Example: KT1 =03, because one mag- 
netic storage tape is used and the tape 
to be end-filed is KT = 03). A maximum 



Description 

of four output storage tapes may be 
used during one processing. Each would 
be end-of-filed at end of process. 

This code is used in special cases where 
a dual-control, stream gaging station 
exists, one control for measuring low 
flows and another for measuring high 
flows. In this special case, NDST would 
be coded as zero for the high-flow 
control and as 1 for the low-flow 
control. When runoff data is from a 
single control station, NDST would be 
coded as zero. The NDST code is used 
in later processing to identify the proper 
rating table or curve to be used in 
computing discharge. 

This variable, when coded 1, specifies 
that a different type of hydrologic data 
will follow the present data. A new 
header card must be read following the 
last paper tape record of this control 
card. NEWDAT will be coded zero if 
same type of data is to follow. 

The maximum change in gage-recorded 
amount that may occur in a given time 
interval, or maximum gage height 
allowed. This variable is necessary be- 
cause of the possibility of erroneous 
punchouts on the paper tape by the 
digital-recording gage. If any gage- 
punched reading for a given time in- 
terval exceeds the value of this variable, 
the data is considered invalid and is 
ignored by the computer. Default values 
for the three types of hydrologic data 
will be used when IGREF equals zero. 
These defaults are as follows: (a) a 
maximum of 1-inch change in precipita- 
tion amount in a 5-minute interval, (b) a 
maximum of 30.00-foot gage depth for 
any runoff amount, (c) a maximum of 
60.00-foot gage depth for any ground 
water level. 
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Label Card 

(One card for each paper tape record contained on 
the translator tape) (Required). 

Note: The card columns of this card are identical to 
the columns of the "paper tape identification 
form." 



Variable 



NCOD 



GAG 



NPIL 



NTYPE NTRACF. 



Format 


14 


3A4 


12 


11 


12 


Card 
Coin runs 


1-4 
MT1 


5-16 
ND1 


17-18 
NY11 


19 

NY1 


20 
NH1 


12 


12 


12 


12 


12 


21-22 
NMI 


23-24 
ARD1 


25-26 
MT2 


27-28 
ND2 


29-30 

NY22 


12 


FH.2 


12 


12 


12 


31-32 

NY2 


33-36 
Nil 2 


37-38 
NM2 


39-40 
ARD2 


4142 
ICHECK 


12 


12 


12 


F4.2 


11 


43-44 
NLIST 


45-46 
ITCIIG 


4748 
LDATA 


49-52 
ELEREF 


53 


11 


11 


11 


F6,2 





54 



55 



56 



57-62 



Variable 
NCOD 

GAG 

NPIL 
NTYPE 



Description 



Variable 



The gage malfunction error code for the NTRACE 
paper tape record. (Example: NCOD 
1,000 is good data) (See Error Codes, 

App. 1). 

The gage location identification, this 
variable is coded the same as "GAGE" 
on the control card for this gage (Ex- 
ample; RE38 ). 



MT1 
ND1 



The paper lape punchout time interval 

(Example: 05 for a S-minute punch 

interval). 

The type of data being processed, 

NTYPE will equal 1 for precipitation, 2 

for streamflow, and 3 for ground water NH1 

data. 



Description 

If the rain-trace sensor on a rain gage is 
in operation for the paper lape, 
NTRACE - 1, if sensor out of opera- 
tion, NTRACE = 0. If processing runoff 
or ground water data, NTRACE = 0. 

The paper tape beginning month. 
The paper tape beginning day. 

The first two digits of the beginning 
year (Example: 1970, NY1! = 19). 

The last two digits of the beginning year 
(Example: 1970, NY1 =70). 

The beginning hour (military watch 
time, 24 for midnight). 
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Variable Description 

NM1 The beginning minutes. (This variable 

should be a multiple of 5 or 30). 
(Example: If NM1 = 15 for 15 mi miles 
after the hour, the paper tape time cycle 
is every 5 minutes). 

ARD1 The beginning punchout reading 

(Example: 000.0 = zero precipitation, 
01.00= 1 foot of stream depth, etc.). 
(Decimal point not punched; therefore, 
data must be right justified about the 
decimal point). 

MT2 The paper tape ending month. 

ND2 The ending day, 

NY22 Tlie first two digits of the ending year. 

NY2 The last two digits of the ending year. 

NH2 The ending hour (military watch time). 

NM2 The ending minutes (a multiple of 5 or 

30). 

ARD2 The ending punchout reading (decimal 

point not punched). 

ICHECK. The coding of this variable pertains to 
the end of paper tape control of four 
9's. The proper coding is found under 
the "translator operator errors" in table 
4 and Column 53 of the paper tape 
identification for table 2. (See "Trans- 
lator Error Card" below). 

NLIST Used on runoff or ground water data 

only. If all output records are to be 
listed on a printer, NLIST will equal 1. 
If only the page headings, the first and 
last record for each paper tape period 
and a summary for each paper tape are 
to be printed on output, NLIST will 
equal /.era. TEie precipitation data is 
automatically listed, and in this case, 
NLIST would be coded as zero. 



Variable Description 

1TCHG If a precipitation trace sensor malfunc- 

tion under "NCOD" above occurred 
during the record period, and if the 
trace sensor is to be ignored, ITCHG 
would be coded as I. ITCHG would 
equal zero in all other cases. 

LDATA Tliis variable describes the number of 

comment cards (loss data cards) that are 
to be read immediately following this 
label card or a translator error card, if 
present (LDATA may have a value of 
zero through 9). If LDATA is equal to 
zero, no loss data cards will be read. 

ELEREF Used by ground water well data only. 
This variable is coded with the value of 
mean sea level elevation when the top of 
a ground water well is reference to 
elevation. The output data would be 
. values of elevation in place of gage-read- 
ing depths. If the well is not referenced 
to mean sea level elevation, thevvariable 
ELEREF would be coded as zero, and 
the output would be gage-reading water 
depths in feet. The maximum elevation 
of a well at ground level is 9999.99 feet 
(Decimal point not punched). 



The following cards can be inserted in the input 
data card deck immediately following the paper tape 
label card. The first, a "Translator Error Card," will be 
needed in the event that a translator operator's error 
occurred ait the time of translation, and the gage 
malfunction error code (NCOD) is for a time gain or 
loss. The second, "Loss Data Cards," can be used to 
note a period of data loss between or during paper tape 
collection periods. 



16 



Variable 
BLANK 

IMO 

IDA 
IY 



Variable 
ACARD 



Translator Error Card 

(Optional card after a label card) 

Note: If "ICHECK," under Label Card above docs not 
equal 2ero for the paper tape record, this card 
must be present in the input deck. The format 
of this card coincides with the format of the 
"Label Card" above. 



Variable BLANK IMO 


IDA 1Y 


IYR IHR IMN 


l-'ormat 36X 12 


12 12 


12 12 12 


Card 






Columns 1-36 37-38 


39-40 41-42 


43-44 4546 47-48 


ARED 






F4.2 






49-52 






Description 


Variable 


Description 


36 blanks are not used. These blanks 


IYR 


The last two digits of the computed- 


orient the card variables to coincide 




tape ending year (Example: 1970, 


with the "Label Card" format. 




IYR - 70). 


The compuled-papcr-tapc-rccord ending 


IHR 


The tape ending hour (military time). 


month (Sec "Translation Procedure 
Errors" Section). 
The computcd-papcr-tape-rccord ending 


IMN 


The tape ending minutes (IMN must be 
a multiple of 5 or 30). 


day. 


ARED 


The ending punch-out value (Decimal 


The first two digits of the computed- 




not punched). 


tape ending year (Example: 1970, 







Loss Data Cards 

(Optional cards after the "Translator Error 
Card" or "Label Card"). These cards are used 
to note a loss of data between two paper tapes. 

Note: A maximum of nine cards allowable. 

Variable ACARD 

Format 




Card 
Columns 



Description 

Comments for output on the data list- 
ing. The "LDATA" code under the label 
card layout must be greater than zero to 
read "Loss Data Cards." The number of 



Variable Description 

loss data cards read and printed will 
equal the LDATA code from the label 
card of the preceding paper tape. 
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ORDER OF INPUT 



The Input Data Cards are stacked in the following 
order: 

1 . Header Card (one card, required). 

2. Page-Heading Cards (maximum of three cards, 
optional). 

3. Snow Date Cards (maximum of 999 cards, 
optional). 

4. Control Card (one card, required), 

5. Label Card (one card, required). 

6. Translator Error Card (one card, optional). 

7. Loss Data Card (maximum of nine cards, 
optional). 

8. Repeat steps 5 through 7 for each paper tape 
record for a gage. 

9. Repeat steps 4 through 8 for each gage's data. 
10. Repeat steps 1 through 9 for each type of data 

on the translator magnetic tape. 
(A typical stacking order is illustrated in figure 9.) 
The translator magnetic tape contains the basic 
input data. The physical makeup of this tape is a long, 
continuous string of digits, each four digits represent- 
ing a 5- or 30-minute-interval data entry. An imaginary 
decimal point is located between the third and fourth 
digits for precipitation data and between the second 
and third digits for runoff and ground water data. The 
presence of a number 8 in the first digit of a 
precipitation reading signals a trace sensor indicator. 
The occasional appearance of four 9's represents an 
end of a paper tape record. Following every 1,020 




Figure 9,-A typical input-data-cards stacking order. 

digits, a blank space and imprinted line indicate an 
interrecord gap. A pictorial view of a section of data 
listed from a translator magnetic tape is illustrated in 
figure 10. A "box" encloses a group of four 9's to aid 
recognition. 

The combination of input cards and translator 
magnetic tape completes the input data requirement of 
the processing computer program. 
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DC76C07600760076007600760076i;C76lJ07ftl)076UQ7fiOOT600760C76007fiC076007600760076C:07600760076 
^300760076007fia07600760076U0760076(l07fiOG760076007(,n076U076n076007600760076007600760076 
007600 76007fiC070076U0760076(J076007fi(il)f60076(107( J l(0/6a076007600760C7600760076007600760076 
CG76C076007(,007ftr0760U76CO!600760076Q07600V6U076U0760C7600760076UC76007600760C7600760076 
C07fi007ftOQ760C7600760Q7600760076007600760C760076UQ76nC7600760076007600760076007600760076 
01)76 (INIBBRKCORD GAP) 

0076C07*0076QC7t007600760C760C76007600f6007600760C76(lC76007600760C76007600760076007fi007fi 
C076C0760076fl07600760C760C760C76007f,00760U76007(,OC760C7600760076007600760076007600760076 



l b a n l* D n l^ 
J076C07600760C76C076007600760C7ft00760U7fiOU760C76U^60C760C7600760C7600760076C07600760076 



Figure 10.- A pictorial view of a section of data listed from a translator magnetic tape. 
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COMPUTER SOURCE PROGRAM 



The computer program developed to reduce the 
digital hydrologic data was written in Fortran IV 
language for use on an IBM 360/67 computer system. 4 
This source program is comprised of a main program 
and nine subroutine subprograms to aid in program 
"debugging" and because of their ease in following the 
program's flow direction. 

A major function of the program is to edit the data 
for extraneous gage readings from the translator 
magnetic tape and to retain only those gage readings 
that are needed to reproduce the hydrologic events for 
a record period. These values with appropriate date and 
time, gage malfunction error code, and other identi- 
fying information are listed on a printer and written 
on magnetic tape storage as output. A complete errors 
edit is performed using information from the Trans- 
lator Operator's Error or Loss Data Cards. 

The appropriate action is taken by the program to 
identify these errors by printed messages on the output 
media. The program does not attempt corrections of 
gage malfunction errors. The error codes provide 
sufficient information for a later step in data correc- 
tion and analysis. The program was written to enable 
the reduction of all three types of digital hydrologic 
data: streamflow, precipitation, and ground water 
.wells. 



A normal method would be to reduce each type of 
data separately, avoiding a mixture of the three types 
of data on a single magnetic storage tape. 5 One type of 
data per storage tape provides a less complicated data 
retrieval at a later date. A source program and 
input-data loading order is illustrated in figure 11. The 
// and /* cards are computer residence cards, which can 
vary from one computational center to another. A 
listing of the program is given in Appendix II. 




RJW DMA 
WN5LATOB 
MAGNETIC IAJF. 



Figure 1 1 .-A diagram of the computer source program 
and input-data loading order. 



TRANSLATOR MALFUNCTIONS AND THEIR COMPUTER CORRECTIONS 



The paper-tape-to-magnetic-tape translator places 
data on the magnetic tape in a binary-coded decimal 
form. The signal strength of each digit must lie within 
the acceptable signal strength range of the computer 
device used to read the magnetic tape. It has been 
found with the Model 1730 translator that the signal 
strength of an individual digit occasionally may fall 
outside this acceptable range. Consequently, an invalid 
character is usually substituted for the correct O-to-9 
digit. 

This invalid character will cause the program to stop 
execution, and the data on the magnetic tape beyond 
this point becomes inaccessible in the current job step. 
This character results in an error code IHC215I on the 
IBM 360/67 system. It can be bypassed by the use of 



4 IBM Corporation. IBM system/360 operating system, 
Fortran IV (G) Programmer's Guide. File No. S360-25, Form 
NQ.C28-6639-1. 1966. 



the ERRSET subroutine. An example of the invalid 
character might be Ol'3 instead of 0123. The ERRSET 
statement simply informs the computer to take the 
invalid character (') and to convert it to a valid digit 
(1), This results in a usable four-digit number (0113). 
The one digit is obtained from the last argument in the 
CALL ERRSET statement. Likewise, the second argu- 
ment (256) allows for 256 of the IHC215I errors 
before program execution is completely terminated. 
The values of these two arguments is arbitrary within 
certain limits (See Ref. No. 3). 

A second translator malfunction that can occur with 
the model 1730, although less frequently, is a perma- 
nent input error (IBM-IHC218I), This error is also 
produced from a weak signal on the translator mag- 



s Slianholtz, V. 0., and Burford, J. B. Computer systems for 
reduction and analysis of hydrologic data. U.S. Dept. Agr., 
Agr. Res. Serv., ARS 41-132. 1967. 
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netic tape. When the computer attempts to read a 
record and is unable to recognize the value as valid, the 
ERR = argument of the input data READ statement 
(main program, App. II) instructs the computer to 
reread die record in error. The record is reread 
numerous times in an attempt to receive a valid value. 
If a recognizable value is obtained, the program 
execution continues. If not, execution fails, and the 
processing stops. 



Following the use of either of these correction 
routines, the computer reduction program is designed 
to ignore the corrected record if its value is above or 
below a set amount when compared with the preceding 
and following record. 

However, the occurrence of these malfunctions is 
rare. The use of very high-quality magnetic tape in the 
translation process can help to reduce the possibility of 
a translator malfunction. 



COMPUTER OUTPUT DATA 



The output data from the computer reduction step 
can be written via a printer and/or placed on perma- 
nent magnetic storage tape. 

An example of the printer output is given in figure 
12 and illustrates one paper tape record period from 
Rain gage RR-44, Mahantango Creek Watershed. The 
collection period began 9/9/69 at 1020 with zero 
rainfall and ended 10/7/69 at 1 100 with 2.6 inches of 
accumulated rainfall. During this period, the rain trace 
indicator was in operation and is noted on the records 
with a "T" as trace rainfall. The "type" column is 
blank, because only rainfall was measured, not snowfall 
or other similar precipitation. 

The blank line spaces across the listing are rainfall 
event separators. These represent an hour or more 
between the end of one rain and the beginning of 
another. The footnotes describe the computer versus 
the watch-time ending of the paper tape, the number 
of basic records written on magnetic tape, the number 
of records read and analyzed, and the type of rain gage 
malfunction error for the collection period. 

The streamflow output listing (fig. 13) depicts a 
recording period of 6 days from stream gage WE38U. 
In this example, the "list" option, described as 
"NL1ST" in the "Computer Input Data" section, is in 
effect. The output is similar to the precipitation listing 
in Gage No., Date, Time, and Code columns. The 
"Time Intr" column represents the number of 5- 
minute intervals during which the stream level re- 
mained at the corresponding gage depth under the 
"Depth (FT)" column. The presence of zero in the 
"Discharge Table No" column indicates that the data 
record is from a large control of a "dual-control gaging 
station." The footnotes follow the same format as that 
in the precipitation data listing. 



The printed output from ground water well data as 
shown (fig. 14) is generally the same as output from 
streamflow. This output is also a result of the "List" 
option effect. The "NREFE" column indicates, by the 
presence of a blank, that gage depths are actual 
instrument readings not referenced to M.S.L. elevation. 
Every 2400-hour reading for the entire record period is 
listed and written on the magnetic tape for both the 
ground water and the streamflow data. 

When the list option (NLIST) is coded as zero, the 
printed output for each ground water well or 'stream- 
flow paper tape will contain only the page and column 
headings, the first and last record written on magnetic 
tape storage, and footnote information. This option of 
zero or no listing allows the summary of the paper tape 
information without printing all basic output records, 
thus decreasing the initial processing time. A listing of 
the basic output records may be obtained from the 
magnetic storage at some later date. 

The magnetic storage tapes contain only the basic 
output records. These records are written in an 
unformated form, or format-free output. Each integer 
or real variable of a record requires four bytes of 
magnetic storage, and every character of a literal 
character string requires one byte, plus four extra 
computer-required bytes for each record written. The 
storage requirements for each precipitation record, 
streamflow, and ground water well are the same: 56 
bytes. The magnetic tape is written in blocked records 
of 1 00 records per block, and the variable block size 
(VBS) needed to store the different length records is 
6,004 bytes, including four extra bytes per block. 

The Fortran IV naming convention must be fol- 
lowed when reading or writing unformated records on 
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PRECIPITATICN1BREAK POINT BASIC DATA) 
NEWRCtUNIVERSlTY PARK, PA* 
STATE-PA. STATE IND. N0.= 1600 



WATERSHED MAHANTANGH CR. GAGE=RR44 


GAGE 


MONTH 


DAY 


YEAR 


T 


IME TRAC.E 


PRECIP DEPTH 


NO. 








HP 


WIN 


FflR INTERVAL 














UNCHESJ 




TAPE 


BEGINNING 


DATE 


.TIME, READING= 


9/ 9/1969 1020 


RR44 


9 


17 


1969 


16 


35 T 


0.0 


RR44 


9 


17 


1969 


16 


40 


0.2 


RR44 


9 


17 


1969 


17 


10 


O.I 


RR44 


9 


17 


1969 


17 


25 


0.1 


R44 


9 


17 


1969 


17 


45 


0.1 


RR44 


9 


17 


1969 


.17 


50 


O.I 


RR44 


9 


17 


1969 


22 


45 T 


0.0 


RR44 


9 


17 


1969 


23 





0.1 


RR44 


9 


17 


1969 


23 


50 


0.1 


RR44 


9 


25 


1969 


13 


55 


0.1 


RR44 


q 


27 


1969 


21 


40 T 


0.0 


RR44 


9 


27 


1969 


?2 


35 


0.1 


RR44 


9 


28 


1969 


7 


20 T 


0.0 


RR44 


9 


28 


1969 


7 


35 


0.1 


RR44 


10 


2 


1969 


9 


55 T 


0.0 


RR44 


10 


2 


1969 


10 


25 


O.I 


RR44 


10 


2 


1969 


U 


5 


0.1 


RR44 


10 


2 


1969 


12 


5 


O.I 


RP44 


10 


2 


1969 


13 


15 T 


0.0 


RR44 


10 


2 


1969 


13 


35 


0.1 


RR44 


10 


2 


1969 


14 


40 T 


0.0 


RR44 


10 


2 


1969 


14 


45 


0.1 


RR44 


10 


2 


1969 


15 


40 


0.1 


RR44 


10 


2 


1969 


16 





0.1 


R044 


10 


2 


1969 


17 


10 T 


0.0 


RR44 


10 


2 


1969 


17 


25 


0.1 


RR44 


10 


2 


1969 


18 


30 


0.1 


RR44 


10 


2 


1969 


19 





O.I 


RR44 


10 


2 


1969 


19 


55 


0.1 


RR44 


10 


2 


1969 


20 


55 


O.I 


RR44 


10 


2 


1969 


23 


10 T 


0.0 


RR44 


10 


3 


1969 





10 


0.1 


RR44 


10 


3 


1969 


1 


20 T 


0.0 


RR44 


10 


3 


1969 


1 


25 


0.1 


RR44 


10 


3 


1969 


2 


10 


0.1 



TYPE 



ACC. 
(INCHES) 



0,0 



0.0 
0.2 
0.3 
0.4 
0.5 
0.6 

0.6 
0.7 
0.8 



0.9 



0.9 

1.0 



CODE 



1000 
1000 
1000 
1000 
1000 
1000 

1000 
1000 
1000 



1000 

1000 
1000 



1.0 

l.t 


1000 
1000 


1.1 

1.2 
1.3 
1.4 


1000 
1000 
1000 
1000 


1.4 
1.5 


1000 
1000 


1.5 
1.6 
1.7 
1.8 


1000 
1000 
1000 
1000 


1.8 
1.9 


1000 
1000 


2.0 
2.1 
2.2 
2.3 


1000 
1000 
1000 
1000 


2.3 
2.4 


1000 
1000 


?.4 
2.5 
2.6 


1000 
1000 
1000 



END OF TAPE N0.31tFOR GAGE-RR44 



END OF TAPE ON LABEL-10/ 7/1969 TIHE=ll READING* 2.6 
END OF TAPF COMPUTED* 10/ 7/1969 T[ME=ll READ[NG= 2.6 



THE NO. OF RECORDS WRITTEN* 44 

THE TOTAL NO. OF PUNCHES FOP PAPER TAPF WAS COMPUTED TO BE" 8073 PUNCH INTERVAL- 5 

DATA FDR PAOER TAPE WRITTEN ON TAPE NH. VA1314.FOR STORAGE THE ERROR CODE FOR TAPE=1000 
ERROR CODE HOOO) GOOD DATA TAPE NO APPARENT ERRORS 

Figure 12.~An example of printer output from one precipitation record, 
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SJREA FLCh I8REAK POINT 
NEWRC, IMVERSITY PARKjPA 


BASIC (1ATAI 


STATE-PA. 
WATERSHED* 


STATE lf>D. 
CAHANTANGO CK. 


KG 


.-1606 

GAGE-NE38U 






CAGE 
NO. 


MONTH 


DAY 


YEAR 


TIKE 

HR 


TIME CI5CHARGE DEPTH CODE 
WIN INTR TABLE NO. (FT1 


tEGIN OF TAPE LABEL' KE3EU 


10 


t 


1970 


12 


50 









.23 


1000 


FIPST RECORD ON MAG ...>__ 3tU 


10 


6 


1970 _ 


12. 


50 


12 








.23 


10CO 


HE3EU 


10 


fi 


1970 


12 


50 


12 








.23 


1000 


lnE3BU 


10 


6 


1970 


13 


50 


24 








.22 


1000 


WE38U 


10 


6 


1970 


15 


50 


46 








.21 


1000 




10 


6 


1970 


19 


40 


52 








.20 


1000 


WE3BU 


10 


6 


1970 


24 





203 








.20 


loco 


HE36U 


10 


1 


1970 


16 


55 


85 








.19 


loco 




10 


^ 


1970 


24 





123 








.19 


loco 


ME3GU 


10 


a 


1970 


10 


15 


54 








.20 


1000 


KE3EU 


10 


e 


1970 


14 


45 


111 








.19 


1000 


HE36U 


10 


e 


1970 


24 





117 








.19 


1000 


ViE36U 


10 


s 


1970 


9 


45 


53 








.20 


1000 


WE38U 


10 


<3 


1970 


14 


10 


118 








.19 


1000 


hESEU 


10 


9 


1970 


24 





70 








.19 


1000 


WE3BU 


10 


1C 


1970 


5 


50 


204 








.20 


1000 




10 


1C 


1970 


22 


50 


14 








.19 


1000 


WE3SU 


10 


1C 


1970 


24 





27 








.19 


1000 


Vf38U 


10 


11 


1970 


2 


15 


261 








.20 


1000 


WE 3 6 U 


10 


11 


1970 


24 





203 








.20 


iocs 


LAST RECORD CN CAG" WE36U 


10 


11 


1970 


24 





1 








.20 


1000 


ENO QF TAPE HO. 1 , FCR GAGE-Ht3flL 




EKD 


OF TAPE 


ON LA8EL 


=10/12/1970 


TIME- 


17 READING- 


0.19 






EJsD 


OF TAPE 


COMPUTED 


=10/12/1970 


TIME-17 READING- 


0.19 






IhE 


NO. OF RECCRtS 


WRITTEN- IB 


TOTAL RECORDS WRITTEN CN 


MAti. 


TAPE 


SINCE BEGINMf.G- 


1242 










ThF TCTAL 


NO. 


OF PUNCHES FCR 


PAPER 


TAPE WAS CCMPUTEO 


TO BE- 


1779 PUNCH INTERVAL- 5 


DATA FQP PAPER TAPE WRITTEN ON 
EPPCR CODEUCCO> GOOD 


DATA 


NU. DUMMY 
TAPE-NG 


,FCP STCRAGE THE 
APPARENT ERRORS 


ERROR 


CODE FDR TAPE 


-1000 



Figure 13, -An example of printer output for one streamflow paper tape record. 
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AOUIFER CflTA(BREAK POINT DATA) 
_NEHftC. f IMVE_RSITY_PARK|PA.. 



STATE-PA. STATE IND. ND.M606 

WATERSHEC= fAHANT ANGO CK. GAGE=AD37-38 



ELEVATION REFERENCE" 

BEGIN CF TAPE LABEL* AD37-38 



C.OO BEGIN GAGE HEIGHT* 24.00 

GAGE MC DAY YEAR TICE NREFE GAGE DEPH. CODE 



4 3 1970 1430 



24.00 lOQO 



FIRST RECCRt CH MAG.= AC31-38 


4 


3 


1970 


1430 





24.03 


1000 


AC37-38 


1 


3 


1970 


15 





24.03 


1000 


AC37-38 


4 


3 


1970 


1530 





24.03 


1000 


AC31-38 


4 


3 


197C 


16 





24.03 


1000 


AC37-38 


4 


3 


1970 


1630 





24.03 


1000 


AC37-38 


4 


3 


1970 


17 





24.03 


1000 


AC37-38 


1 


3 


1970 


1730 





24.03 


1000 


AL37-38 


4 


3 


1970 


IB 





24.02 


1000 


AC31-38 


4 


3 


197C 


1830 





24.01 


1000 


AC37-38 


4 


3 


1970 


19 





23.98 


1000 


AC37-3B 


1 


3 


1970 


1930 





23.97 


1000 


AD37-38 


4 


3 


1970 


20 





23.96 


1000 


AD37-38 


A 


3 


1970 


2030 





23.93 


1000 


AD37-38 


4 


3 


1970 


21 





23.92 


1000 


AC37-38 


4 


3 


1970 


2130 





23.91 


1000 


AC37-38 


4 


3 


1970 


22 





23.90 


1000 


AC37-38 


4 


3 


1970 


2230 





23.88 


1000 


AC37-38 


4 


3 


1970 


23 





23.88 


1000 


AC37-38 


4 


3 


1970 


2330 





23.88 


1000 


AC37-38 


4 


3 


197C 


24 





23.88 


1000 


AC37-3B 


4 


4 


1970 


030 





23.88 


1000 


AC37-38 


4 


4 


1*70 


1 





23.88 


1000 


AC37-38 


4 


4 


1970 


130 





23.88 


1000 


AC37-33 


4 


4 


1970 


2 





23.88 


1000 


AC37-38 


4 


4 


1970 


230 





23.88 


1000 


AC37-38 


4 


4 


1970 


3 





23.88 


1000 


AC37-3B 


4 


4 


1970 


330 





23.88 


1000 


A037-38 


4 


4 


1970 


4 





23.38 


1000 


AC37-38 


4 


4 


1970 


430 





23.88 


1000 


AC37-38 


4 


4 


1970 


5 





23.88 


1000 


AC37-38 


4 


4 


1970 


530 





23.88 


1000 


AC37-38 


4 


V 


1970 


6 





23.88 


1000 


AC37-3B 


4 


4 


1970 


630 





23.87 


1000 


AC37-38 


4 


4 


1970 


7 





23.86 


1000 


AC37-38 


4 


4 


1970 


730 





23.84 


1000 


LAST RECURR CN MAO. AC'37-38 


4 


4 


1970 


8 





23.81 


1000 



ENDING GAGE HEIGHT LABEL= 23. ei 

ENDING CN TAPE LABEL" 4- 4-1970 8 23.81 

END OF TAPE CQHPUTEC= 4- 4-1970 8 23'. 81" " 

ERROR CCCE FOR PAPE TAPE-1000 

?5-RECORDS WRITTEN FCR PAPER TAPE 
RECORDS HERE URITTEN CN MAG. T/PE-OUMHY 

A TOTAL OF - 67RECORDS HERE WRITTEN ON MAG. AT THIS POINT 
ERROR CODt=(lCCOI GOOD DATA TAPE-NC APPARENT ERRORS 



Figure 14.- An example of printer output from one ground water (aquifer) paper tape record. 
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magnetic sloragc tape. The same type, identical first the magnetic tape. The output variables and storage 
letter, and variable names must be used when reading a requirements of each of the three types of hydrologlc 
record a& were used when (he record xvns written on records are described in the following record layouts: 

I . Precipitation data storage records: Record Length = 60 bytes (56 actual + 4 extra). 



Variable 


nvin 


GAGE 


NDATEU) 


NDATE(l) NYll 




Storage 










. __ 


(Bytes) 


4 


12 


4 


4 4 




Significant 












Characters, 












per Held 


4 


12 


2 


2 2 






NDATI-O) 


NDAT1X4) 


NDATE(5) 


TRACE DREC. 






4 


4 


4 


4 4 






2 


2 


2 


I 5 






STYl'E 


NCOD 










4 


4 










1 


4 








2. Stream flow 


Data Storage Records: Record Length = 


60 bytes (56 + 4). 




Variable 


IWID 


GAGE 


NDATEU } 


NDATE(2) NY1 1 


NDATE<3) 


Storage 












(Bytes) 


4 


12 


4 


4 4 


4 


Significant 












Characters 












per Field 


4 


12 


2 


2 2 


2 




NDATE(4) 


NDATFX5) 


NTINT 


NDST AREC 


NCOD 




4 


4 


4 


4 4 


4 




2 


2 


3 


I 6 


4 


3. Ground water well data storage records: 


Record Length = 60 (56 + 4). 


Variable 


IWID 


GAGE 


NDATE(l) 


NDATE(2) NYll 


NDATE{3) 


Stoiagc 












(Bytes) 


4 


12 


4 


4 4 


4 


Significant 












Characters 












per Field 


4 


12 


2 


2 2 


2 




NDATE(4) 


NDATE(S) 


NREFE 


AAREC NCOD 


BLANK 




4 


4 


4 


4 4 


4 




2 


2 


1 


8 4 
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Variables Description 

IWID Watershed Identification number. 

GAGE Gage locution number. Example: 
(WE38U ). 

NDATE(I) Month. Example: (12). 

NDATE(2) Day. Example: (31). 

NYU First two digits of the year. Example: 

(19). 

NDATE(3) Last two digits of the year. Example: 
(72). 

NDATE(4) Hour (military time). Example: (24). 

NDATE(5) Minutes (multiple of 5 or 30). Example: 
(00). 

TRACE Traee on or off for record of precipita- 

tion. Example: (T). 

STYPE The type of precipitation, a blank repre- 

sents rainfall. Example: (S). 

NTINT Number of 5-minute intervals stream- 

flow gage level in effect. 
Example: (101). 



Variables Description 

NDST If equal to zero or blank, a large or 

single stream flow control. 
If equal to one, a small control of a 
dual-control gage. Example: (0). 

NREFE If equal to one, the ground water well 

levels represent elevation, if equal to 
zero or blank, ground water well levels 
are actual gage height. Example: (1). 

DREC Precipitation amount collected per time 

interval Example: (000.2). 

AREC Strcamflow level for time. Ex- 

ample: (000.25). 

AAREC Ground water well level for time. Ex- 

ample: (01985.28). 

NCOD Gage malfunction ERROR code. Ex- 

ample: (1,000). 

BLANK Used as record-padding space (four 

blanks). 



CONCLUSION 



The edited magnetic-tape storage data provide the 
first step to digital hydrologic data analysis. The data 
from these storage tapes are retained in the original 
form as basic data master Tales. Analysis and data 



correction, aided through use of the malfunction error 
codes, can be accomplished from the master files at the 
discretion of the user. 
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APPENDIX I. GAGE MALFUNCTION ERROR 'CODES 



A ONE IN COLUMN ONE MEANS VALUE PUNCHED ON LAST PUNCH 
OUT OF PAPER TAPE IS TRUE VALUE RECORDED BY GAGE. A ER 
IN COLUMN ONE MEANS AN ERROR IN LAST VALUE PUNCHED. 
A 'X' NOTES A CHOICE OF A 'I 1 OK A 'O 1 IN COLUMN ONE. 

1000=0000 DATA TAPE NO APPARENT ERRORS 

2000=DATA CONTAINS ESTIMATED VALUES OR (ESTIMATED DATA) 



XOH) 
X011 

X012 
X013 

XQ14 
X015 
X016 
X017 
XI) 18 
X019 
X020 
X021 
X022 
X023 
X024 
X025 
X026 
X027 
X028 
X029 



X030 
X031 
X032 

X033 
X034 
X03S 
X036 
X037 
X038 



TIME 
TIME 
N T I L 
TIME 
TIME 
EH TAPE. 
TIME LOSS- 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 
TIME 



( TIME LOSS CODES ) 

LOSS-TIMER FAILURE GAGE STOPPED 

LOSS-LEAF SWITCH FAILURE GAGE RAN CONTINUOUSLY U 

BATTERY FAILED 

LOSS-TIMER FAILURE INTERMITTANT OPERATION 

LOSS-TIMER FAILURE TIME DIFFERENCE AT END OF- PAP 



LOSS- 

LOSS- 
LOSS- 
LOSS- 
LOSS- 

LOSS-MO APPARENT REASON 
LOSS- 
LOSS-LEAF SWITCH FAILURE 
LOSS-HATTERY FAILURE 
LOSS-IMPROPER TAPE INDEXING 
LOSS-PUNCH MOTOR OPERATES I NTERMI TTANTL Y 
LOSS-PUNCH MOTOR FAILURE 
LOSS- 
LOSS- 
LOSS- 

( TIHE GAIN CODES ) 



TIME GAIN-TIMER FAILURE 2 1/2 MINUTE PUNCH INTERVAL 

TIME GAIN-TIMER FAILURE INTERMITTANT OPERATION 

TIME GAIN-LEAF SWITCH FAILURE GAGE RAN CONTINUOUSLY U 

NTIL BATTERY FAILED 

TIME GAIN-NO APPARENT REASON 

TIME GAIN-LEAF SWITCH FAILURE 

TIME GAIN-IMPROPER TAPE INDEXING 

TIME GAIN-TIMER FAILED TIME DIFFERENCE AT END OF TAPE 
TIME GAIN- 
TIME GAIN- 
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X039 


= 


TIME GAIN- 


X040 


= 


TIME GAIN- 


X041 


= 


TIME GAIN- 


X04 


= 


TIME GAIN- 


X043 


= 


TIME GAIN- 


X044 


= 


TIME GAIN- 


X045 


= 


TIME GAIN- 


X046 


= 


TIME GAIN- 


X047 


= 


TIME GAIN- 


X048 


= 


TIME GAIN- 


X049 


= 


TIME GAIN- 






( INCOMPLETE RECORD, IMPROPER PUNCHING, SENSITIVITY 






CODES) 


X050 


= 


TAPE IMPROPERLY INDEXED 1 NO TIME LOSS OR GAIN ) 


X051 


= 


GAGE INSENSITIVE AT SOME POINT ON RECORD 


X05<? 


= 


SNOW WITH FUNNEL IN PLACE 


X053 


= 


INTAKE SILT PROBLEM 


X054 


= 


INTAKE PIPE STOPPED UP 


X055 


= 


DRIFTING SNOW 


X056 


= 


FOREIGN MATTER IN COLLECTOR 


X057 


= 


CABLE BREAKAGE 


X05B 


3 


GAGE TAMPERED WITH 


X059 


= 


FUNNEL FALLEN IN COLLECTOR 


X060 


S 


PRECIPITATION LOSS NO REASON 


X061 


= 




X062 


= 




X063 


= 




X064 


= 




X065 


= 




X066 


=: 




XU67 


= 


PAPER TAPE SUPPLY RAN OUT 


X06H 


=: 


TIMER TURNED TO TEST POSITION 


X069 


= 




X070 


= 


NOTCH OF WEIR PROBLEM (ICE) 


X071 


= 


LOG JAMS DR BEBRE IN NOTCH 


X072 


= 


VALUE GREATER THAN RANGE OF INSTRUMENT AT SOME POINT 


X073 


= 


FLOAT TAPE DISENGAGED FROM RECORDER 


X074 


= 




X075 


=: 




X076 


S! 




X077 


= 




X07B 


= 


ICE JAMMING ( CAUSE HIGH G H ) 


X079 


= 


HEAVY ICED CREEK 



{ TRACE INDICATOR MALFUNCTIONS ) 
NOTE IF TRACE CODE USED OR COMBINATION OF TRACE CODE USED PL 

ACE A 1 IN COLUMN 55 OF PAPER TAPE IDENTIFICATION FORM 
X080 = TRACE PUNCHES WITHOUT PRECIPITATION 
X081 - PRECIPITATION WITHOUT TRACE PUNCHES 
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X.OH2 
XOH3 
XOH4 
XU85 
XOB6 
XOH7 
XOH8 
X089 



X090 

X091 
K092 
X093 
X094 
X095 
X096 
X097 
X098 
X099 



TRACE INCONSISTENT 



( TRANSLATOR READING ERRORS } 

TRANSLATOR READ HEAD MALFUNCTION ( INCORRECT RECORD 
MANUALLY INSERTED READING ON DOUBLE PUNCHES WRONG 



X100 


= X024+X026 




A I LURE 


X101 


= X035+X026 


X102 


= X026+X080 


X103 


= X020+X082 


XI 04 


= X033+X082 


XI 05 


= X023+X024 


X106 


= X023+X035 


X107 


= X050+XU82 


X108 


= X020+X080 



( COMPLEX ERROR CODES ) 
TIME LOSS IMPROPER INDEXING PUNCH MOTOR F 

TIME GAIN IMPROPER INDEXING MOTOR FAILURE 
MOTOR FAILURE TRACE WITHOUT PRECIPITATION 
NO 



X109 = 

X110 = 
Xlll = 

X112 = 
X113 = 
X114 = 
X115 = 
X116 = 

X117 = 
X118 = 



TIME LOSS NO REASON 

TIME GAIN NO REASON 

BATTERY FAILED TIME 

BATTERY FAILED TIME 

TAPE IMPROPER INDEXED 

TIME LOSS NO APPARENT 
T PRECIPITATION 

X033+XOHO TIME GAIN NO APPARENT REASON TRACE WITHOU 
T PRECIPITATION 
X023+X026 BATTERY FAILURE 



TRACE INCONSISTANT 
TRACE INCONSISTANT 
LOSS TAPE INDEXING 
GAIN TAPE INDEXING 
TRACE INCONSISTANT 
REASON TRACE WITHOU 



PUNCH MOTOR 
LOSS IMPROPER INDEXING fi 



FAILURE 
PRECIPI TATION 



X024+X081 TIME 

WITHOUT TRACE 

X035+X081 TIME GAIN IMPROPER INDEXING PRECIPITATION 

WITHOUT TRACE ' 

X024+X082 TIME LOSS IMPROPER INDEX I NG TRACE INCQNSI 

STANT. 

X035+X082 TIME GAIN IMPROPER INDEXING TRACE INCONSI 

STANT. 

X012+X051 

TIVE AT A 

X031+X051 

TIVE AT A 

X070+X054 

X060+X050 



TIME LOSS 

POINT 

TIME GAIN 

POINT 

NOTCH OF WEIR 

PRECIPITATION 



TIMER INTERMITTANT GAGE INSENSI 



TIMER INTERMITTANT GAGE INSENSI 



ICE INTAKE PIPE 'STOPPED UP 
LOSS NO REASON TAPE IMPRGPE 
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R INDEXING. 
X119 = X013 + X052+X055 TIME LOSS T I MER .FA I LUKE G SNOW WITH FU 

NlMEEL DRIFTING SNOW 
X120 = X036 + X052+X055. TIME GAIN TIMER FAILURE & SNOW WITH FU 

N>MEL DRIFTING SNOW 
X121 = X024+X052 TIME LOSS IMPROPER TAPE INDEXING G SNOW WIT 

H FUNNEL IN PLACE. 
X122 = X035+X052 TIME GAIN IMPROPER TAPE INDEXING SNOW WIT 

H FUNNEL IN PLACE. 
X123 = X024+X057 TIME LOSS IMPROPER TAPE INDEXING & CABLE BR 

EAKAGE 
X124 = X035 + X057 TIME GAIN IMPROPER TAPE INDEXING il CAHLE BR 

EAKAGE 

X125 = X052+X055 SNOW WITH FUNNEL G DRIFTING SNOW 
X126 = X0264-X052 PUNCH MOTOR FAILURE & SNOW WITH FUNNEL IN 
X127 = X013+X080 TIME LOSS TIMER FAILURE TRACE WITHOUT PRE 

CIPITATION. 
X128 = X036+X080 TIME GAIN TIMER FAILURE fi TRACE WITHOUT PRE 

CIPITATION. 
X129 = X026+X030 PUNCH MOTOR FAILURE TIMER FAILED 2 1/2 MI 

NUTE PUNCH OUT 
X130 = X08H-X050 PRECIPITATION WITHOUT TRACE & TAPE IMPROPER 

I_Y INDEXED 
X131 = X091+X024 TRANSLATOR READ HEAD MALFUNCTION fi TIME LOS 

S TAPE INDEXING. 
X132 = X091+X035 TRANSLATOR READ HEAD MALFUNCTION C TIME GAI 

N TAPE INDEXING. 
X133 = X072+X073 VALUE GREATER THAN RANGE G FLOAT TAPE DISEN 

GAGED. 
'XL34 = X033+X081 TIME GAIN NO APPARENT REASON AND PRECIP. WI 

. THOUT TRACE. 
X135 = 
X136 - 
X137 = 
X138 = 
X.139 = 
X140 = 
X141 = 
X142 - 
X143 * 
X144 = 
X145 = 
X146 = 
X147 = 
X148 = 
X149 = 
X150 = 
X151 - 
X152 - 
X153 = 
X154 = 
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X155 
X156 
X157 
X158 


= 


X159 
X160 
X161 
X162 
X163 
X16A- 
X165 
X166 
""X167 
X168 
X169 
XI 70 
"X171 
X172 


a 


X173 
X174 
X175 
X176 
X177 
X178 
X179 
X180 
X181 
X182 
^X183 
X184 


= _ 


X185 
X186 


K 


X187 
X188 
" "X189 
X190 


= 


X191 
X192 


= 


X193 
X194 


: 


X195 
X196 


= 


X197 
X198 


- 


X199 


= 
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XQMP.UJ.J=B,..-SQURC.E 



LOGICAL*! WSHU6) fHCAP 01(54) ,HCARD2<54) ,HCARD3('54) 
_LCGlCA..l,*i._Oy.T2.(6j , AQARD18.0 )....__ ..... .......... . ............ ,. ............ 

COMMON GUT2,ACARD 

COMMQ.M/BLK1 /STYPE I. 99.9 J t AR.EC.(_2_57.)_,CREC ( 257) , A T.R A ( 2 ST.) iC 
1TRA(257), GAGE<3)GAG<3)NSDTE<999t3) KDATE ( 257 , 5 ) 
._ COM MCJK/ B L K 2 L 4 . 1 1 kjrJNLS TOP j NC H E C_K_i N.SJ R ., J.S.IO_R _E i.IC H E CKj.N. L 
ICE, NWSH,KSEQ,NSEQfNOTE f MIAC,NSKlP,NLIST,NPFGt 

ZNOPItNCPT L MIPTjNTYPE,NX f KB,lXtNAXNC r I.E._QF. f NOEUF ,NC.OO., IT 
3,KTrNSTART,LDATA, EL fcREF, NSC, YACC,ACC., NT RACE, ABASE ,NSNO 
_4W_, INDiX,NGOiNEED J NUT. J ATRCjBTR_E.C.jIIIC .............. .._ . ....RQ.S.T.i. 

5NTINTf LTINTNORM,LHEC,DftEC,NTIC f ADIFF,NFIRSTNREFENPI 

6L __ __ __ _ ___ ___ .............. _____________ ....... ........... 

~~ LHR,N 



_ IDlj ARD1 f NH2 jJSPAY ,. !MO_, !MN t NYl 1 ^M.1 2^.N M2 ,^Y E.AR tiDA 

22 f AR62,NHbURtNYE,NYXX f I TMD , I TO A 1 1 T YR , I THR ? ITMN, GREF, 

KJD^^ 



,LK4/LU ( 12_\ /B 
CALL ERRSET ( 2 15 , 256,- 1 1 1 1 1 ) 



NCPT=0 
NSEQfcO ..... 
5001 KSEQ=0 
C JNIJtALLZING_O.F 

DO 1 L=l,257 
DO 1 1=1,5 



AREC(L)=OO.qg 



l NDATEiLtl )=00 



DO 55 K=,3 



NSTORE=0 



NSTOP=0 



NSNOW=0 

AIR.EC=OO_ 

BTREC-6.0 
KB = 
NREFE=6 
NORM=0 
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.C REA D_KE A D E R CAR D F_Q_R__NUH B E R_QF PAGE HEADING CARDS 

READ(5,152) NHEAD,NSC 

___15 2 F Q RMAJJJ lj_I JJ . 

C READ PAGE HEAO ING* CARDS" 

EQ.O) GO TO 5002 



READ (5,5003) HCARDL 

f.QRMTL5MiL ___ -_ 

IFlNHEAD.EcT.i7 GO TO 5002" 



IF(NHEAD.Q".2*) 
_ __RE AD ( 5 r_5Q 03 ) JjCAR D3 __ 

50~02 CONTINUE 
L2LJLO _ IKON CARDS _READ JF _NSC_^I ^ERO AND_PRECIP DATA 

fF(NSC.EQT6)~GCTicf 3"" "'~ " ..... """ " ..... " ~ 

D051 l 



READt5,2) (NSOTEt 1,L) ,L=1 , 3) f STYPE ( 
2_ __ ZORHAIUJ 2j_A. ) 



151 CONTINUE 
3_.NOPT-0__ 

NCHECK = 



IX=0 



I F (NSC . EC. ) NSC=1 
C X XXX CONTROL CARP READ 



RE AD (5,^) STATE, wiD T WSH|GAG NPFG, NT PT I EOF ', IT TKT , OUT2 



4 FQRMAT(A3,I4 t 16A1, 3A4 f 21 2t II 2I2t6Al , I 1 , 512 t2 1 1 T 14) 

.-LJLJ?_JL^LX_x J< JLJLJLA^L_CARQ_.B.EAp x_ x x x x x x x 

.5 RE AD (5, 6) NCOD, GAGE , NP I L NTYPE , NT RACE , wfi ,ND 1 ", NYlT, NYl 



2Sf ITCHGrLDATAtELEREF 



AGREF=IGRE ' 

I F ( NTYP E. EQGRFAGRE* . 



IF(NTYPE.E0.2*OR.NTVP.EQ.3) GREF=AGRE?*'.0"l 
IF1IGREF.IEQ.O.ANP.NTYPE.EC1.1) GREF = OOKO 
IF( IGREF.EQ.O. AND. NTYPE. EQ.2) GREF=30.00 



_._ 

IF(GREF.EQ..AND.NTYPT.EQ737Ab\"ELEREF.GT.O.O) GREFE 
1LEREF*-6Q < OQ 



HIAC*1 

IF ( JCHG. eQl ) NTRACE=0 



_ 

C X X X X X X CHECKIN3R"7RoTt"R'"DAfA" TYPE "AND WRITING HEA 
C 



__ _____ 

DQ 992'MN=13~ ........... " .......... ....... .............. "~ 

rF<GAGE(HN).EQGA6(MN) I G,0 TO __992_ 
GO TO 991 ......... ........ " '~ 
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GO o 8 



7 FORMAT! ' STOPPED WRONG TYPE DATA OR GAGE NAMES DO NOT 

_JLMAJGIHJL___ ...... ___ ...... ____________ ......... _._ ...... - _____________ ............. _______ .- 

GO TO 3000 
8 ___ WRLTL(6j.5.Q.Q.4) __________________ _ ____________________________________ ..... 

500-i FORMAT (1H1) 

IFiNHEAD.ECUQ). GO TO 5006 __ __ _ ..... .. __________ ..... _.. 

WRlfE(6|56o5JHCARDl 
5005 FQ.RM AT < 37Xj_54Al J ____________________________ ..... __________ ....... ______________________ 

IF(NHEAD.EQ.l) GO T0~ 5006 

WRITE (6j_5005)HCAR02 __ ___ ____ 

_ EQ.2) GO TO 5006 



5006 WRITE (69) STATE T I WI D , WSH GAGE 
9 _ FORMAT (37Xi l STATE-SA3.,.5X, 

l'WATERSHED=',16Al,5X, 'GAGE=', 3A4//) 
NJCEfQL _ _ _ ......... ___________________ ........ __ 

........ "NO~TE=O " 

NWSH=0 .. ____ ..... .._ _. ._. ...... 

* 



NDAY=NO 

NYEAB^NYl 
NHOUR=NHT 
NMIN^NMl 

NX=6 
IMO = MT2 
IDA=N02 
IJ^. = JiY2? 
IYR=NY2 
iHR=^H2 
IMN=NM2 
ARE_Q=ARD2 
NUT0 
sC = g.O_ 
NSTARE-0 
IJTQRE=0 
ITIC=6 



NFIRST=1 ...... _________ ..... ......... _ ................. 

IFt ICHBCK.EQ.6) GO TO 14 

Q X X X _X X X X X X RBAQ TRANSLATOR ERROR CARD . .. 

" ........... "RETb(5f 31) IMQ, IDA'ilYf lYRflHRf IMNfARED 

31 FORMAT(36X,6I2,F4.2) .............. _.. 

14 IF(NSTORE.EQ-OJ GO TO 15 
C X X X_X_X XXX X_TAKE.-gyT OF S.TORAGE DATA STORED FROM LAS. 

'c ..... f "READ "' ..... 
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ARECUMCREC(KB) 
JFiNTYPE.NE_.l) GO TO 101 _ 
ATRA<J)~ = CTRA(KB) 

1 f\ 1 I/ D (/ Q j_ 1 

i w i. i\ D " IN D T i, 

"j = MAXNO " ~" " ~ 

T~x"T""x"T~)T^l(~T"x"lNPUf "DA"fA 1 RFA"D""6'F""M"AG"r"~f"AFE 
Q_ X X X_X X_X X_X_X TESJ FOR FOUR NINES JND Of _ TAPE 
15 DO 150 J=l,255 

_ J F <NIY.PE.EQ . 1 1 _Gg_jg 9002 

,READ(if,io,END=200ERH=9000J AREC< J) 

"" rnTEO?7E'QriT"To"to~i50 

,.9001 If LAP_EC(Jl.JCL.?9.99l_Gg JO 104 

GO TO 150 
-?OOQ_READ(IT,l^END=2gOjEM^iOpJL) AREQIJ^) 

fFtlEQF'.EQ. 1) GO TO 150 

GO TO 9001 _ 

9002 READ( IT ,"99 f " END=20"Oi ERR"=9003T A~f RA ( J ) f ARECTJT 
_ ?9 __F.gRMAl(fl_.0_fF3. 1J_ __ 

IF(IEOF.EQ.l) GO TO 150 
_ .9004 IFtARECJ J ) ^EQ .9 9. .9. A N .D^AT R A_( J i .J Q_. 9^i_GjQ_ _TO. 1_0 4 

GO TO 150 

I Fl'll 0?7I Q7T1" G fo~T5 

GO J0_ 9004. 

150 CONTINUE 
-C_ X _X _X_JL_X _X_X_X X CONTINUE NOT END OF PAPER^ TAPE 

J = 255 ' ~ *" "" 

.--1Q.3. NS_TQRE=0 _ __ 

NCHECK = "~ "~ ~" ~ " " "" 

NOTE_=0 _ 

13 CALL DATIME " " "" 

GO TO 11 

c x x x x x x X"X"X"EN"D OF "PAPER" TAPE STEP"PAPER "TAPE CQUNTE 

C R ' 

104 NCPT=NCPT + 1 ' ~ "" ~ 

NOTE=1 ~ "" " 

_____.._...__._ . 

iFTTro".~IT~Gb"TtrTfci 
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12 



CALL DATIME_ 
IF(NORM.Q."l)"~G"o" T0~"i2 

GO T_0__110 

CALL CHECKO 



34 



GO TO 110 
_ X X X X X X X 
200 NCPT = N 



NSTOP=0 



NCHECK=1 

.NQTE=L ___________________ 

IF(J.EQ.l) GO TO 13 



GO TO 13 
C X X .X. X__JL.X_J( _X X.JTES.1..JO._SEE_J.F_EJS|.DJ3F ALL ...PAPER.. I APES-.F.Q.. 

C R A GAGE t OR" " 

_Q X_X_X JLJLJL.X X_* END.OF.ALL.._PAPER_.1AP_E_S_FO_R 
TlO IF<NOPT.EQ.NPFG) NWSH=1 



LTINT=0 



NX=0 



IF(NTYPE.EQ.) CALL PRECIP 
TYPljIfljili CAU _B.LLNfiE. 



IF(NTYPE.EQ3) CALL AQUFER 



NICE=1 

IJLLNCH_ECK_.EQ,^i) N_SIARE=.P _ - 

iF(NCHECK.EQ.i) GO TO 28 

GO IQ_15 __ -- 

28 CALL OUTPUT 

lT(j\IWSHJEQ.r.ADTNwolT7eQ7n ~GO TO 32 

_lJNWi.H.JEQ.U GGLI0..3 

GO TO 5 
C JCJL X_X_X X X^ X X LI1DJ3.F..PR06B.AM...HRIIE. . INFR.Q ABO.U.T T.APE SE 

'C "PERATERl " 

32 N S Q.Q^_N1E SQjjjSEQ - 

IF( IEQF.EQ.O) GO TO 5i 

WRITE(6,5Q) - - , -- 

"~"50 FORM ATT' ""IN PUT" PAPER TAPES WHERE SEPERATED BY EOFS') 

GO TO 500 .... - 



53 FORMAT( INPUT P^P^J[A^LJ^ML 1PJP1RAIED . BY_..F.OUR-JiI !1 



_500 LFlNlWpATjiEQj.jOi G0_ TO 501 _ _. _ - _. 

"." WRITE("6f45T) NSEQfNF'iLE""" . ^ f 

J52_F.ORMAI UHOf ' I.QTAL_R_ECOR_D_S _WR I TTEJ....OJ1. MAP- . T-APP* V I> * 

IFOR TAPE FILE NO. 1 , 13) 
IF{NSKJ_P-^_-JjL_GgjrO_500L_ 



NFlLE^NFILE+1 
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~ND_1LE JKT 
GO TO 5001 



451 FORMAT* LHO, 'TOTAL NO. RECORDS "WRITTEN ON MAG'." AP sT 

i F t im7NT7oT~E~Nir~F iT~KtT 



i^JLJND_FI_LE_ja2 



IF(KT3.NE.O) END 

Ni_5_QJ END FILE K-T4 

' "" 



3000 STOP 
___END 

SUBROUTINE~"CATIME 
c 



j...TE ANGLUM-FOR EACH RECORD READ IN 
LOGICAL*! OUT2( 6) , ACAR'D<8'd) " ..... 

QUIiL i_AC A R D _ 

" 




J_21IJ_, _ GAGEiiJ iGAG13JLLNSDTEi999 , 3 ) , NOATE ( 2 57 , 5 J 

BLKa/J.I^L.NSTOP.NCHECK.NSTORETisTORFrirHECl^N 
MSH , KS EQiNSEOjJJIOTE MIAC f NSKIP f NLIST, 

DT.MTDT.MTunc TT^T^ TT-T^.rrrjr^ rrr-""'--r-~ ? ~* ii.!JJJ 



iNOECFfNCODtlT 
JALA.!.EJLERElFjNSC A YACCrACC,NTRACE,ABASE.NSNO 

INDEX, NGO, NEED, NUT, A TRECTBTRECTTfTC ,NDST. 

TK.T , TTil , ,_ ytiLtfiEJ^JLfm^ABIff^F.^^^^ 






-------- 22iAED2iNKOURiNYEjNYXX, ITMO, ITDA ITYR , ITHR TMN.GRFF 

l^"\" D ^^ 
____________ _t.yAT3_! j IN J > I w I D 



^EAR_ TES1..X JL.X. JLA JLJ< >L.OX_ 

^ * t *4 * IL* ** 

?(.NYJAR.Ej^,Og.AND._NYE.NE.20> GO TO 11 

IF(NYEAR.Q.OO.ANb.NYE.NE".26T""i3b"To"" 11 ~ 



C X ^ E HEIGHT T? ^ Flll - y '^ ^" Af^AV;wiTH"mtTlNE OF'EACH GAG 





11 I F ( J . E Q . 256 ) ""j=~jr 
QO_J.3 J = 1,J 

. NDAfE(Iiii=NMONTH 
NOAJ_E ( 1 1 2 ) = NDAY 



NOATE i 1 , 3 ) = NYEAR " " 

^-QAiy.[_l41f_N.HC)UR _ 

NO ATE < I f 5 ) = NM IN~~ " " 

LFiNCqD.NE_ f ^pO.AND.-ICHECK.EQ.O> GO TO 

,{ F (*_IMQ : EQ.NMONTHl.ANbT(Tb7;E"oVNFAT/V^^^ 

H. EQ..12 j .AND\ INO'AVTEQrsTri'AND. iNHOUR.EQ."24ll"" 
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IF(NMIN.NE.60) GO TO 34 
WHQ.U8-.NhiQ.URt.0.1 

NMIN = 00 " "" "~" '""' 

IF(NHOUR-LT24) GO~T~0 13 "* *" '" 



NHOUR=00 

i>"( NDAYT'LE". Lit ( K )T~Go" TO" "i 3" 

NDAY^bT 

75 NMowrTSbT 



I F < NYEAR. EQ .. AND..NYE .NE .2~0~> "db" TO Too'l 
Q . N YE AR )_ L L L ( 2 > =2 9 
""""" " 



_ 
1001 IF( NYEAR. NE. 100) GO "fa"20" 



JsH21f.NY.22tJ, 

20 NHOUR=00 ~" " """ ' " : """ 

NM I N.5NP I L 

13 CONTINUE " "" " " ~ "" ~ 

NQRMrP. 

GO To 108 ~ '"" " 

- 102 _NORM-1 

108 RETURN " " "" " " 

NQ 

SUBROUTINE CHECKO" "" "" " ~" " """ 

C_....SUBR..... F.INDS .E.NO. .OF PAPER JAPE IF I CHECK CODE IS USED AND 

C A ERROR HAS OCURRED ' ' " " " " " 

__ LOQLCAL*! Q.UI2J6) fACARD(80J_ 

COMMON dUT2,ACAR6" "" """" " "" """ " 

!M!M!MMLW^ ) f ATRA(257) F C 

1TRA(257J, GAGE{3),GAG(3)\"NSDtE<W9,3TNOATET257;5T"" 

JJlQHEO<_ t NiTgKErLSTQRE. f J.CHECK|.js!l 



2NQPI?.NCPT,NTPT t NTYPEtNX,K_B,IX L MAXNgf IEOF f NOEQF, NCQO, IT 
3,KTtNSTART f LDA"fA,ELEREF,NSC f YACC,ACC%NTRACE%ABlSE/NyNa" 
MdlNDEXiNGOi NEED tNUTjAIR E_CjHREj: , 1 TIC__ __ _ NDST i 

SNTINTiLTINTf' 
6L 



^ 

t NH2 f NDA Y ,JMO , I MN ,JY1 1 f MJ2 , NM2 , N VE AR f I DA t NY1 f ND 
22fARD2 f NHOUR,NYEfNVXX IT MOt ITDA7iTYR,llHR\'lTWN", GRE"F"7 
-iMlitjL!iQEXfjaMO,KTD^I<.TY^j<m^ KTMNtNSTARE f lV,AR-E 

4D,MTINT,lWiO " ~" ' 
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COHHON/BL.K4/LLL(I2)/BLK5/TR(2J 



C * * * CHECK TO SEE IF PAPER TAPE SEPERATORS E~OFS' OR~*4 ~N fjsJE" 
C S 



NPEXT=0 

IFUEOF.EO'.l) GO TH ?0<i 



cxxxxxxxxx TESTING" TO SEE"~IF END OF PAPERTTAPE "CQNT 

C ROL FOUR 



CXXXXXXXXX -NINES 'WAS LEFT OUt'OR bfFFER'ENTrSEETCH" 
C ECK1 



107 IF(NOTE.EQ.O) GO TO 100 

C FOUND 4 NINES 

108 IFUCHECK. EQ. 2) GO TO 116 
LEJJCHECK.GT.5) GO TO 125 



118 J=I 
___ NSTORE=0 



GO TO 110 
116 IFJNTYPE.EQ.il GO TO 9004 



READ< ITtlO,ND=201,ERR=9001> EREC 

_JLO FORHAT(__F4.2j _ 

120 IF(IEOF.EQ.l) GO""f5~I09 ~~ 

C X X X X X "X~)TX~X~STORE~OA TA~F6F"N EX F"P AP E R 'TAPE 
10 9_. NSTORE=1 



IF(NTYPE.EO.l) CTRA(1)=ETRA 
CREC(1)=EREC 



MAXNO=1 



KB=1 

GO TO 110 



9004 READ(IT,99 f END=201,ERR=9005J ET RATER EC 

99 FORMAT (Fl. 0^3^11 , 

9006 IFUEQF.EQ.l) GO TO 109 " " 

Lf.!JRE_C.^EQ_._99.9.AND.ETRA.E0.9. ) GO TO 118 



GO TO 109 
90.Q5 READ (IT, 99* END=201 , ER.R=?OQ4 ) ETR A_, EREC 

GO TO 9006 
9001 



GO TO 120 
100 



NCHECK^I 

IF(NPEXT.EQ,1) GO "TO 1 08" 
NEDR=0 



I2=J-I 
J=I 



IF( I2.EQ.O) NEDR = 1 
IFtNEDR.EQ.il I225I_ 

11=1 + 1 " " " ~~ 

IF(NEOR.EQ.l) 11=1 



KEND*I1+.(I2-1) 
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NCC = 



IF<NEDR.EQ.O) GO TO 170 

JCLIILJLSfi 

170 DO 171 KP=I1,KEND " 

MJ1EL. 



171 CREC(KP)=AREC(KP) 

M^-tO--B.EA(L.IAPJ.INIO_MBEC ARRAY IF(NEDR = 1JLGO TO 

179 DO 180 KXI1KEND " J-M 

iELLLQEtlCbU GO TO 1_11 

IHNTYPE.EQ.i) GO TO 9007"" " 

. LFICRJCJJOO .JJ9.99.9.9LGIL TO 182 

9008 IF{CREC(KX).EQ.OO.oi GO fo 180 



GO TO 184 

-LU -I-HiRE.C-_E^.QO.Q) _GQ_TO 180 

GO TO 112 ' ~ ~~"" 



lCRJ^^^ GC TC 182 

GO TO 9008 """" ..... ----------------- i-A-a*. 



i_80....._CQ.NIlNUE 
NEDR-1 ""' 
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________________ __ __ 

KEND=255 """ 

. ....... ..... GO__JQ_ 1?Q_ 

182 IF( ICHECK-EQ,2) 'GO TO l~83 

I.(!<X.EQ.KJND} G_0 TO 199 
188 MAXNO~=KEND-KX " ' "~" 



189 

GO TQ iU)___ 
184 IFif KX.EQ.KE'Nbr'Gb "fo" " 173 " ..... ..... 

___ KV=KXtl 
192 IF< rE6F'.Q.TV "GO"TO"186 ....... 

.ULLN TYPE- ECU iL GO T_Q 9009 ___ 
I F ( CREC": KV ) EQ. "99799)" GO* Yo l'72 
1.9.6. JF(_KY.EQ.KE.ND.) GO TO 187 

...... "" 



GO. IP 192 

9009 IF(CR^C{kV)VEQ\99/9/ANb;cTRArkKEQ797) GO TO 172 
___________ GO TO. 186 _ _ __ 

1 8 7 MAX N0= K E NO -"< K X- 1 > ...... " -------- .......... ~ ...... ------ ................ 

_KB=KX 

IF( fCHECK7E"Q-3J G0""f "188""" ..... " ........ --------- .......... ...... ........... 

- GO TO 189 
172 MAXNO=I<END-KV ..... " """ ............... ~ ...... -------- ........ ................ ........ - 



GO""TO 189 
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IFCNTYPEoEQ.l) CTRA ( 1 )=CTRA ( KX) 



I9Q__DjL_1.91 KX=Il,KfcND 



IF(NTYPE'.EQ.l) GO TO 9010 

R E AD ( I T , 1 . EN D= 20 1 ; l^R^=9QQ^j: R PrjX ) 



GO TO 191 
.90,10 R E A D ( I T .,99^. DgJZO 1 ,_E R RjJgQ U ) _C JR A < K X J , C R E C ( K X ) 

GO TO 191 

901 1 RAD( I T , 99 , END=2Q1 LCJRA (KX 1 ,CREC(KX) 

GO TO 191 ~~ " " 

^^-MAiiLilliJ: Of ENO-201 L^. R JCJJ< X J 

191 CONTINUE " " *" 

GQ TO 179 

183 NCC=NCCH " """ ' 



_._ 
IF(NCC.E0.2) GO TO 188 

- IlZMiL, ___ 
GO TO 179" ~~ " " 



GO TO no 

125 



________ 

126 FORMATt ' UNABLE" TO DETERMINE TNO~^"FAPET TAPE---STOPP 

~~~*~ 



_G(U_0lO 



__ _ _____ _ ___ 

C X X X END OF" FILES USED AS"TA7ETEPERA~f OR~S 
IPJ _ IF.(NQIi.Efl.i) _GP_TQ_108_ 

IFUCHECK.EQ.2) GO T0~~206~ ..... ~ ........ " ................. ~ ..... ~ 

_____ GO TO 100 ____ 

206 DO 207 KXE=l,2"f5 
_______ LLUiLY.Pl. EQ.. 1 ) G_0 TO 901 2 



GQ_TQ_207 



9012 



9013 



9003 

20-1 . 

MAXNQ=255 



. 

NSTORE^'f ...... ..... -------- ...... ...... --------- 

JM __ 

GO TO 110 ......... ........... - ........ - 



__ _______ 

X X X X X X X X X RlAO"ENrOF"Fin~BO:NCH"6N"|ICHECK ROUT I 



-. ____ N_BAJD. _______ 

201 NSTQP=0 

..02 _ M^ECKfa __ 
NSTQRE=0 



GO TO 118 -.----.. ..... ...... . ._.- .......... .. _. 

8.EIURU. _______ 

END " r " " ...... "'" 

SUBR-QUU M E PR .EC IP _ _ _ 

LOGICAL*! 6UT2(6)/ACARD(80T 
J^PMO_N_Qy.T2 f_ACARJ)_ _ _ 

COMMON/BLKl/StYPE(999)7AREC{ 257) ,'CREC ("257) t " ATRA(257) t C 
Gj9iGli3.Ii GAG.( 3_I,_N S_DT EJ ? 99 jult s N.P A T EJ 2 5 7 1 5 

" 



. . __ _ . 

COMMON/BLK2/J,I f L,NSTOP.NCHECK f NStbRE,isfCRE,iCHECk" f Ni 
ICJLt ------------------ NWiH f KSSiNS.9.iNflJE ( M I AC, NS K I P , NL I ST , NPFG , 

2NOPT,NCPT,NTPT,NTYPE,NXfKB,IX,MAXNb,IEG"F,Noai=,NCbo,lf" 
^LO^.tiSJARTj-LM.LA.,,lJLERJFjN^ r YA^ 

4W,INDEXNGOfNEEDtNUTfATREC f BTRECf ITIC ,NDST, 

?JONIiiJJJiI.LNJR.MiLLHC^ , N.P.I. 

6L 



3_/^ 

101tARDlfNH2NOAY f IMO , I MN tNYll MT : 2NM2 f NYEAR, IDA, NY1, MD 
2 2jA _R02 jjSIHflU&iM JL N Y_XJb_ _ J T M0_ t I T D A , I T Y R t I T H R ,. I T MW t G R E F , 

" 



_ . 

3MASH ? NDEX,KTMO,KTDA,KTY,KTYR,KTHR T KTMN,NSTARE, I Y, ARE 



COMMON/BLKWLL(12)BLK5/fR"("2T ~ ..... "" ........ "" ...... ......... 

_______ JFJ^ICE.._ES.l) GO _TO_229 

WRITE(6i201)" "" "" ....... ................... 

...J.0 1 .__FO_RM/kT..(J6_X,_ GAGEJ ?X 9 ' MONTH DAY YEAR , 4X , 

3'TIME TRACE PRECIP DEPTH TYPE PRECIP CODE 1 / 

-------- L2iKi^JNfljLltllX.LlMB ........ ..WIN ______ .FOR. INTERVAL 

2 ACC. '/77X, '(INCHES) {INCHES) '/) 

-C..X.-.X...X.JL_X..X...X X X.WRIIE BEGINNING DATE TIME GAGE HEIGHT IF 
C 'THE FIRST " ....... "" .................................... " 

..LA XX. JX _X X X X X READING OF A PAPER TAPE 
BRDl==ARDi*fo.6 

____ blRIJLEJ^_L46.L MT1 1 NDljJlYl lj NY1 iNHljM) l.iBP.I_ 

46 FORMAT(37X r 'PAPER TAPE BEGlNNfNG DATE , TIME, READING*'" ," 



_ 

CXXXXXXXXX ROUTINE TO EDIT OUT EXTRANEOUS READINGS, 
C _____ WRLLEjQN_MAjG 

NTIC=0 " " '" ."" 



IFU.EQ.ll GO TO 3l 



GO TO 306 



306 IF(NSARE.EOG" TO "30T 
ABASE=ARECU) 



307 IF(NTRACE,EQ-1) GO TO 350 
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<_JLX_X X. _ 

IF<AREC(n.LE.A~BASE) GO TO 313 



NJOE=1 

JLFiy.XtE^jLG[LlP 400 
IFURECCKIXJ.EQ. ABASE) GO TO 401 
ADIFFf ARECt I)-ABAS| _ 

IFUDIFF.GT .GREF] GO fo~ 313 

IFlNSNp.W.EO.n_GJ. T0_309_ _ 
MASH=1 



_ , _ ______ _ 

IFiNDATEi III) .EQ.NSOTE( INDEX tl). AND. NO ATE ( I ,2) EQNSD 
1TE{INDEX|2).AND.NDATE(I|3).EQ.NSDT( INP|X,.3I)GQ TO 315 



317 CONTINUE 
NSNOW=0 



GO TO (309,313) ,MASH 
C = AREC_U) 
= ACC'+DREC" 



I F ( I X . 1 2 GO 328 
WRITE(6,329) 



329 FORMATdH ) 

I FKP. EQ.l) GO TO 4000 



TYPE=TR(1) 



IF(LX.EQ.O) GO TO 392 

!<T.MQ=NOATE(LXil) 

KfbA=NDATE(LX,2) 



KHR=NDATE(LX,4) 
KTMN_=NDATE(LX5) 

'" 



AKTC=ACC-DREC 

WRITE ( 6 ,27) GAGE t KTMCtKTOAr^TY^KT YR, KTHRiKTMN , TRACE , AT R 



tTRACE, 
_ _lATREC,TYPEf NCCD 

KSEO=KSEQ-H " "" "* 

__GO_TO 328 

328 TYPE = fR(T) "" ~" : " ~" 

If,iNJNOW. EO . 1J _TYf .E_=JSTYPEJ_NOE_X ) __ 

~ " GO "TO '4000 " " !'"" * " 

!-M) M*1 ,2) iNYllf ( NO ATE ( I ,N) iN 

,DREC,TYPEACC,"NC6b"" ~ 

._ .2.1 ... ...FPMA.TJ.23X, _M^3X A |2 r 4X,J_2_,^ 

_WRJJllK_n_ J WI D,GAgE , ( NDAJEJ It M) ,M*1 , 2 } , NYll , (_NDATE ( I , N 

1) N = 3t5) iTRACErORECiTYPE, NCOD"" "" **""" 



4000 IF(NDATE(I ? 4KEQ.24) NSNOW=0 
t^iEQ^i _______________________ 

NTIC=0 

jLii_CfiCL ______________ 

ABASE=AREC( I) 



IX=0 

___________ HUIrl ..... __ ...... ______ _ 

GO TO 312 
.AB AS= ARCL_K I.X1 ......... 

I = K I X 

LLlMQjLtfti.nj$..eL TQ 
GO TO 313 



NOEX-INDEX 

D. . IU_JL3_Q9 .,..3131.^ .SB ____ 
C 

L^^J_X^X_^J^,jmRLNQ.,.QL.JRACE AI1D NO IBAG6. FGUTINE.S 
C 

.^l3.__LX=JXtl _ _ 

JF(NOATE(I,i).EQ.24) NSNOW-0 

GJD... Jfl. J.U ___________________ 



___ GO__LQ___307 __ __ _ _ 

c "'" " "" " "" 

_X,X_XJ? X__T__RA_CE,J.N RQUTLNE 

c 

35.Q__IF(ARE.Q(I)..GJ.AJASJ GO_TO 351 
403 IF( IsfORE.EQ.l) GO TO 352 



360 ISTORE=1 



loA=NDATE{ 1,2} 

IJ[YR-JiDA_TP! If. 3) 
ITHR=NDAT E( It 4) 



355 I TIC" I 

IJF.LNSNQW . EQ ,_i I__G_O_ LQL .t i_3 

MASH=2 
GO TO 316 



354 ITIOO 

__IfJjNEJiD.-Eft..l) NIIC=NTIC_tl 
IF(NTIC.lt.l2). GO TO 3i3 
NEED=0 



NTIOO 

GO J_Q_3J_3 __ 

364 KSEQ=KSEQ+1 
4001 ,ISTOR_E_-_0_ 

ITIC=0 
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NUT=1 



IF(NGO.EQ.l) GO TO 310 
GO TO 313 ._ 



352 IF(NEED.EQ.l) GO TO 365 
IFUTIC.EQ.i2) GO T0366 



ITIC-ITIC+1 
GO TO 313 



365 IF(NTIC.GE.12) GO TO 390 
NTIC-NTIC+i 



GO TO 313 
390 NEED=0 



ISTORE=0 
NTIC=0 



ITIC-0 
GO TO 313 



366 IF(NSNOW.NE.O) GO TO 367 

IFtATRAU J.EQ.8. J GO TO 360 



ISTQRE=Q 



GO TO 313 

16 7 IF(NDAT EJJ i 4 J .Ji E ._2 4J _GO _IP_ 3 55 
ACC=ACC+ATREC 



WRITE{6 f 329) 

-WJUHU^TJ _GAGEJTMO|JT_DAjNYl_lflTYR! IJHRt ITMNf TR(2) ,A 
ITRECiSTYPEtNOEX) fACCjNCOO" "~ ' "" ...... ~ ...... 

WPITJJKTLJWI^^^EjITMg,JJ^AfNYUr_ITYR,ITHR if ITMN f TR<2 
i),BTRECfSTYPE(N6EX)fNCG6 



GO TO 364 



Lf(J<I^EQ.JJ_Gp TO 402 

IF ( AREC ("K IX ;") . EG V ABA SET ~GO"""fb" 40 1 

A OIL= A R C ill r A B A^S E __ 

iFt ADJF'FTGT.GR'EF") "Go"to~"368""" 



IF(NSNOW-EQ.l) TYPt=STYPE(NDEX) 



IF(NEED.EQ.l) GO TO 391 
JFiISTOR.E.EQ.1) GO TO 370 

ITIC=O ' ~" ~" 

GO TO 310 



370 WRITE(6,329) ~'~ " " 

ACC=ACC+ATREC 

iFtNSKIP'.EQVrr GO TO 371 " 

- URUI L6. L7.L GAGE , IT MO, i TO A , NYI i , i TYR , i THR , i TMN , TR AC E , A 

1TREC,TYPE, ACCfNCOD""" " " " 
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^ 

1E,BTREC,TYPE,NCGD 



IF(NSKIP.EQ.l) GO TO 4001 
G.CL J.Q. _3M. ___ 



391 NGO=1 



368 IFUSTORE.EQ.l) GO TO 352 

GO TQ__313 
311 KTMO=NDATE(J,1) 



KTY-NYil 



KTHR=NGATE< J,4 

KTMN=NDATE_( JjJ) _ ___ __ 

RE TURN 

EN_Q _____ 

SUBROUTINE RUNOFF .,. 

LOGICAL*! ... OUT2( 6 ) t ACAR D( 80 J ___ 

COMMON OUT2ACARD 

QOMMQN^BLK l/S.IYPEl?99 ra L t AR_EC{257 J ^jCREC <2_57J , AJRAt 257 J rG 
1TRA(257), GAGE<3JGAG(3) ,NSDTE< 999/3) , NOATE(257 , 5 ) 

COMMON/ BLK2/J> I >L.NSTQPtNCHCK*NSTQRE y ISTQRE. 1CHCK,NI 
ICE, Nw'SHiKSEQf NSEQf NOTEiMIACr NSKI P, NLISTtNPFG, 

2NQPT,NCPTt NJ.JiNTYPEjNXjJ<B fL I XiMA.XNpi.LECf jtNOECFtNCQPf IT 
3fKTfNSfART|LDAT^,ELEREFfNSC,YACC F ACCfNf RACE^ABASGfNSNiJ 
, __ 4WtLNDEXrNGQNEEDrNyT,ATREC,8TREC t I TIC ,NDST 

5NTINTLfiNf ,NORM,LHEC OREC *NT 1C , ADIFF T NF IRST,NREFENP1 
_6L 

COMMON/ BLk3/NHl,NY22fNMINf lYRiMT itNMl NY2iNMCNTHi IHRtN 
. lDljJR m Dl JL NH2^NQAYjJMQ 1 _IJlNjNYnjO2aN 

22,ARD2,NH6uR,NYE,N7xXf I TMO , ITDA , I TYR , I THR , 1 TMN t GREF , 
^iM'ASHjtMLXi^LMOfKTpAyKJYtKTYRtKTHRi KTMN.NSTARE i IY t ARE 
AD,MTINTf iwTb 

COMMO.N/BLK4/LLLI 12 J ./BLK5/TR ( 2 ) 

IFfNICE/EQ.i) GO TO 229 



WRITE(6 t 2) 

FQRMAI_(26Xj LQAGE'tlXi 'MONTH DAY YE_AR'4X r . 



_ __ 

2'TIME TIME DISCHARGE DEPTH CODE/26X, ( NO. ',2 

17X tlHR ___ MI_N_ _IJ1TR TABLE_NO. (FT)'/) 

C")TX X X X X X X X WRITE BEGINNING OAtE TIME GAGE HEIGHT IF 
C THE FIRST 



CXXXXXXXXX READING OF A PAPER TAPE 

____ ^IT'ej6tM)_GAGEjMTlfN!Lbr^ 

46 FORMATT2X7'BE~GlN C3F TAPE LABEL* S 3A4 , 3X T 2,4X, I 2 , 4X, 
___ 12I2t ___ 3X_f.i2i3X_,I2f21X|JF6 i .2f4XjM/J . .. ........................ 

c "TESTING "BEGINNING NUMBER OF 

I F ( N S TART*EQ V 0) GO TO 230 



IF(NDATE(1,1).EQ.NDATE(257,1).AND.NDATEU2)*EQ.NDAT< 
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ANO.D.AE 



_ _ . 

' 2Q.'NDAfEI257f'ir.ANb.NDATE(l,5).EO.NDATE(257,5)) GO TO 2 

_331 ______ _ __ _ _________ ........... ___ ............ _______________ _____ ......... _ 

GO TO 229 
231 ARfc C J_U * AR EC12 5_6J__ _ ________________________ ........... __________________ 

00 298 M=l,5 
298 NDAJE(l,M)=NDATEt256,M). __ _ _. _ _ ___________________ 

NSTART=0 
__ GQ_TO_229 ____ _ _ ___ _ _. 

230 1=1 
K = 2 



NTINT=1 
GO TO.. 18 



229 NTNT=NTINT + l 



C X_ X X__X X _X_ X X X ROUTINE. TOJ|PI_T OUT EXTRANEOUS READINGS? 
C WRlfE ON MAG 

__ --_.^^ 

IF J AR ECUO . GJ GRE F_L_AREC U ) r 9_iQ 

IF((ARECU).EQ.AREC{K)).AND.(NDAfE(kt4).NE.24)) GO TO 

125 _ _ 

IF(NSKIP.EQ.l) GO TO 4000 
24 IF(LTINT.EQ.l) GO TO 4003 



4005 IF(NLIST.EQ.O) GO TO 
WR I_IEJ.6j.27 ) . _GAGEj^(jND.ATEII |M) , L M = 1 L 2 ) t (SIY11 , ( NO ATE ( I .N) 

lN = 3,5J,NTINTtNDST,AREC(h iNCOD 
27_.__FORMAJ_{23X f 3A4 f 3Xj 1 .2., 4X, I 2 ,4X ,2 12 ,3X , I 2 , : 3X , I 2 f 4X , I 3 , 7 

lX,Jl,6X,F6.2,4XtI4) 
...- lPjO_h.R I JEIKTJi I MI .0 , GAGE , ( NDAJ E ( I f M } , M = l , 2 ) , NY1 1 ? ( NDAT E ( I N 

lltN = 3,5),NTINT,NDST f ARECUJ " " " " 



L=I__ 
NUT=1 



NTINT=O ...... ~ 

...25 IHK.EQ.J) GO TO 23 

NTINT=NTINf+l 



GO TO 19 



.E{ I ,M) , Ml f 2) , NYll , (NOATEC I ,N) , 
1N=3,5),NT1NTNDST,ARCUY,NC~OD" ..... "" .................... " ..... """ ...................... ~ 

iQPl..fPlMAT(_l_X_,' .FIRST RECORD ON MAG.* ', 3A4 , 3X , I 2 ,4X , 12 ,4X 

1'2I2 3XtI2,3X,i2,iXfl3 f 7X"i"li f 6X~;i=6.2,4X,I4/} 
LTINT=0 _ _ 

GO "f 6" "4005" ..... ' ...... " ....... ...... " ........ - ..... 

AFTER FIRST TIME THRU (NSTA 



c RT=U 



46 



.12. _____ 



...-. , 

IF(AREC<n.EQ.AREC<256).AND.NDATEU,4).NE.24) GO TO 70 

IJFJJ.I.lRT^J^ll_ACLlIL3.0ja^ _________________________ ....... - -- ......... 

4007 IF(NSKIP.EQ.l) GO TO 4001 



._.....,_. 
WRITE (6, 27) GAGE,(NDATE(256,M),M=lf2) f NYXX(NDATE(256 



___ _______ . 

'305 WRITE(KT) I WI D,GAGE , ( NDATEt 256, M) t M=l , 2 ) ,NYXX, ( NDATE< 2 

15A* N ) i_N5_3_i. ..... ...5J..I N 

~ 



400i NTINT = 



_ GQ_ I.Q JL9 ~ - ____ 

40 6V"wRYfE( 67400^^ 

1N) ,N=3., ...... __A)iNTJM_TN01I.LA_RlCJ^i6j 

............ LT i~NT=6 ........ 

__ GO TO 4007, _ 
; 70" ........ ARECli 1 =AREC( 256) 

DO 75 M=l|5 ...... ____________ ___________ - ...... . ..... - 

NDATEl I,M)=NDATE(256,M) 
75 CLQN.TINUE.. .... ........... _ ........ ............... _______________ - ------ 

NT INT=NTINT+1 

GO IQ 1?_ ..... .,... .............. ... _._ ..... ________ ....... ........ - 

23" NSTART=1 

IF(NCHECK.EQ.Q) GO J.Q.,55 _________ : ...._. 

"" ..... iHNSTOP.EQ.i'.OR.NWSH.EO.l) NSTART=0 



. 
F(NCOD.EQ. 1000. AND. LDATA-tQ.O) GO TO 800 



IF ( (1COQ.GS. QQi.O.A 
"" .......... "l>"("NCbD.GT. ibbo. AND. NCOD.LT. 1050) NSTART=0 



iF{'NCbD.GEVii6oANb.NCOD.LE.1116) NSTART = 



.. 

....... i>TNCobVGE.Ti"i8* AND. NCOD.LE. 11321 NSTART-O 

I F ( NCQD.GI- 0133. AND. NCOD..kE ,01?9.OSJAJR.T::.0 
fF7NC"OD\GTrir33'rAND. NCOD.LE. 1199) NSTART*0 

LFlLDATA-Nt:..0) NSTARTf 0...._ ..... _ ...... _ .......... - ........... - 

IFtNSTART.lo.O) GO TO 95 

GO TO 800 _ ... _ ...... _________ ._ ......... _ ............... - 

95 ......... i'F(NTINf.EQ.O) GO TO 21 

IH NSKI P. EQ. U G.O JO. 40.02.... ...... __________ ......... ------- 

""" ..... "" "lFTLfiNT.EQ.il GO TO 4008 



^ 



KSEQ=KS"EQ*L 
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4002 L=I 



GO TO 21 

-WRITE (6 j. 400 4 LG A G E ( N D A T E ( I_t M ). 1r Lt2 ) i NYJ lj ( N DA I EJ I , N ) _i 
lN = 3,5J,NTINT,NOST,AREC('I),NCOb 

L_UNT=O . 

G~0 TO 4009" " ~ "" " - - ~ ... -._.. 

._MP__^.Q_801_M=l_f_5. __ 

LHAR_EC_y.b GI._GJEF ) _ARECJ Ji_=o. o __ 

AREC(257)=AREC( j) " " '""' " 

55 DO 36 M=l,5 



.36 ..... 

NYXX = 
_________ ARECj 2561 =A RECJJ1 

21 NICE = F " * 



END "" 

S.UBROUJLINE AQUFER _ 

LOGICAL*! 6ut2r6V,ACARD(80) 
-_-__^MMQN_0_UT_2 , ACAR D 



LIMl257J_i G_AGtJ_3_JjjGAG{ 3) tNSDTE< 999 i3J iNDATE(?57.51 

COMMON/BLK2 / J f I , L .NSTO^NCHECKT^^-- 4 - ^- ! - ti -^-^^ 1 - 



^^ 




COMMON/ BL K4 /L LU 1 z 



___ .__ __ 

I F { AR E C ( IT." GT . GR E Fi AR EC? i 
LHELE.REP.EQ.0..01 GO TO 21 

AREC(I)*ELEREF-AREC(T} 
CONTINUE 



1 GREF) AR01 = 0.0 
' 



LLLELREF.EQ.p.O) GO TO 20 
ARDl^ELERE F~- AR" D 1 
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=I 

20 IF(NFIRST-EQ*0> GO TO 2 



17 FORMAT(9X 'ELEVATION REFERENCE= ' , F8. 2 , ' BEGIN GAGE HE 



WRITE (6,1) GAGE|MTl,NDltNYllfNYl,NHl,NMltNRFe f ARDUNC 
" " "~ """~ 



l.EPH- CODE '/^9Xj 'BEGIN OF IAPE_UMLa ' t..3A4i2XjI 
2I22Xf2I2f2X,2I2,3XtIlT6X,F8.2f3XiU//) 

2 _ JL-Q_ _ _ _ ____ ___ ___ ...................... 

3 1=1+1 

<L - -LMQ^QAJJU tU - _________ 

LMD-NDATEi I ,2) 

LYRj=NDATEU ( 3.L_- ..... _________________________________________________________ -..- - 

= NOATE( It 4) 



AARfcC=AREC< I) 
__ If ( L M N . J Q . 3 , _QR . L MN.. E .Q-.OpJL.fia . 

IF"( f.EEQ.j) GO TO 15 ' 
_D_.IQ. 3 _ 
"6 IF(I.EQ.J) GO TO 8 

Q. OJ GO._TQ_9 



WRITE (6, 7) GAGE|LMOiLMDrNYll,LYR,LHR,LMNtNftEFE,AAREC,N 
1COJD__ _ __ __ ______________________________________________ 

"7 FORMATTsxT^FIRST RECORD o'ts MAG.= ' , . 3A4 f 2X f I 2 tlX, 12 i2X 
1 i 2 1 2 JL.2 X t 2 1 2 , 3 X , , 1 1 ,.6X f ._F_8... 2_,.3 X .,_I^// 1 _________ ..... ________ ..... _ ............... - 

9 IF("NLIST.EQ.O) GO TD 11 

WRI!E<6iLPJ--AAMrJ-MP_,L^ 
1NCOD 



12f3X,l4) 

11 IF(NSKIP.tp-l) GO TO 1J.. ________ ....... .......... _..__ ...... _ .......... . ............ . ..... 

12 WRITE(KT) iwi6GAGETLMOiLMDtNYllLYRiLHRfLMN,NREFE,AA 
1REC,NCP_D|TR(1) ________ ...__ ....... _______________________ ..... _, ..... ................. ... - 

NUT-i 



13 NFIRST=O 



NDATE(257,2)=LMD 
NDATE(257,3)=LYR 



NDATE(257,4)=LHR 

iMIH 257j 51-LMN 
AREC(257)=AAREC 



EQ^IJ GO TO 15 

GO TO 3 

8 IF(_NCHEC.K._EQ.PL_GP IQ 18 

"~ "TF"~(NCOO.EQ. 1000. AND. LDATA.EQ.O) GQ TO 15 

NERROR=0 



TFTNCOD"GE. 0010. AND. NCOD.LT. 0050) NERROR=I 
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^J^Q_.H.-JOOO J! A.ND.NCOD 8 LT. 1050) NERROR-i 
' '^^^ * * R 1 




_ 
I F ( LDAT A. NE 

Il N ERROR. E 0.0) GO TO 15 
18 LLPAS = 1 - 

_GQ _LQ_5____ 

15 N"FIRST=O " " ..... ------- - 

BIJURN __ 

END ' " 

SUBROUTINE OUTPUT 

~ 



C X X 

COMMON "50T27ACARD 




5MCJJJ57J., ATRAC 257) ,C 
99 9 , 3 ) , N DA f E ( 257,5 } 



IT 



t NDST f 

CfADlFF,NFiRS T",~N R F F/NP I 

iMn 7 S ; IyF^ Y ^ MT7N ^^^^ 

L^LMN,NY_II, MT2 t NM2 , NYEAR , IDA , NY i wn 

M YXX , I TMO , I TD ATI rv^^THR , ITMN PRP-P- 
-^Lf^.'.u.!.^u.A,^ inu.MOA.KTY.KTVR K-TUO ,!'. ' 4 IMNjGREF, 

4D f MTINT7fwTF~ -^^^^ 

.._COMM_ON/BLK_4/LLL( 12)/B 

NSEQ=NStQ+KSEQ 
-ILNTYPE.EQ.1J GO TO 400 



_BRD2=ARP2*1Q.O 
WRITE (6 



. 

YACC=YACC+ACC 
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WRIT(6,452) YACC 

.F.QHMAHEfiXj.!.JOJAl. ..... RJRECJ P..I I ATI Q 

453 IFtNUT.EQ.O) GO TO 449 

....... _____ S.GL.HLA5.Q . - ....... -._.._ ................. ..... _.. _ ........... _ ....... _ ......... -._ .................... . . 

401 IF(NUT.EQ.O) GO TO 449 

..... ______ JrtRnU.6i:^^fjLNQAJ 

1M=3,5),MTINT,NDST,AREC(L),NCOD 

54_ FORMAT* 'Q' t2X,'LA.$T RECORD ON MAG? *i 3 A4 , 3X , I Z 4 X? 1 2-* 
14X,2I2f 3 Xti2,3Xi I2i4Xf i3r7X,Il,6XfF6.2t4XtI4//) 

NUI=Q 

550 WRITe(6,56)NbPT T GAGE,MT2|Nb2 r NY22fNY2,NH2rNM2,ARD2t ( ND 
lATE(J ? jM)jM5lf2J. r NY22(jNpATEU,NLt.N = 3j5) .AREC(J) f KSEQ ? N. 
2SEQiMIAC,NPl[ 

50 FQRMAT(3Xf END OF TAPE NO. ' j. I 2 , ' , FOR GAGE-',_ 3A4I 1 EN 
ID OF TAPE ON LABEL- ' r I 2 , ' / ' T I 2 ' ' / ,21 2 , TIME=S!2,I2t 
J' REA_PING= I jF6.2/44X, 'END OF TAPE CO.MPU.TED= , I 2 t / f t 12. 
3,'/',2I2i, TIME=M2,i2,' ftEADING = ',F6* 2>44X , 'THE 
JtOF RECAPS WRITTN='_jL5/_/12X f VTOJAL RECORDS 

5 MAG. TAPE SINCE BEGINNING^ ' i I6//28Xi 'THE TOTAL NO. OF 

6 Py.NCHE_S FOR PAPER JAPE WAS CCMP_UJED. IQ. BE=^.fl.5.r. l _PUNC 
7H INTERVAL^ 1 ,12/) 

_GQ_TQ 45Q_ _ _ _ ...... _________ ................. _______ ._. ..... 

449 WRitE(6,555) 

555 FORMAT M?.XjJ NO RECORDS^ WR.I UN J3N_!AP._F _GR..IHJ S__PAE_R 
if APE'/) 
IF(_NTY_PE.EO JL 2) GO TO 550 ___ ...... ..... ... ... .................. ..... 

450 WRITE<6,49) OUT2 t NC6b 

49_Fp.RMAT(12X( 'DATA FOR PAPER JAPE WRITTEN ON TAPE NQ* 1 ?^ 
' ...... " SYORAGE THE ERROR CODE FOR TAPE- ' r I4//>) 

EQ-U GO IQ_30Q4 _______________________ .......... _____________ ....... 

WRITE (6,3003) NSEQ 

3003 FORMAT (12Xt M ' ,_I6, 'J_=TOTAL NO. OF .RECORDS WERE WRITTEN 
~!"ON" "MAGNET". ""TAPE THROUGH THIS POINT DURING FIRST EDIT" 



3 4 CALL E R M E S G ( N CO D ) 

_GO _IO _3^Q5_ _ 

40lT "iHNUT.EO.oT GO TO 815* 



= NDATB<257,2) 
NYER=NDATE(257,3)_ 
NHUR=NDAf E i 2~57 , 4 ) 
NI MNDATE (SS 



WR1 II < 6 8. 14 ) GAGE , i WON, NDAE t NY22 , NYER t NHU R ;f NI M , NRE FE , CT 
IRECTNCOD ..... """ " 

14 _ FORMAT* pSBXjt LAST RECOUP QN M_AG-= r f 3A4t 2X, I 2, 1X I 2 
1^2"X,2T2 r yxV2l2V3X'rrf6X,F872, 3X I4/J 



__ 
NDA=NDATE"(Jf2) 
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R ^N DAJ1 1 J * 3 j 
NH*=NDAT(J t 4) 



J) 
= AR.02 



IFIfcLEREF.EO.O.o) GO TO 817 
ARD3_=ELERlfF-ARD2 



817 WRIT{6,816) ARD2 

- 1 . 6 LQRMAT1 3Z_XiiENOING_^AGE_HE I GHT J.ABEL = '., F 8 . ?./ ) 

813 WR I T fc ( 6 , 600 ) MT 2 , ND2 , NY22 , N Y2 , NH2 , NM2 7& R'D3 v MO TNDA7N V2 

OUT 2 , NSEQ 

"" " 




4ECQRDS WERS WRITTEN' ON"MAG7 TAPE- 7iAl/37X , ' A TOTAL OF 

R^n^^ 



_. 
3005 KSEO=0 ""'" 

- ...... -?f_UDAT.A.J_Q.O)_Gg TO 30 

DO 5000 NNN = l,LDAf~A ........ 

...... - .-.MAPI Sjjgqi j ACARD 

3001 FORMAT(80A1) 



ACARD 
3002 FORMAT ( 28 Xf'e'OAl) 



30 RETURN "" 
___ JND__ _ 
SUBROUTINE 




11=1 



820 FORMAT* 20X, 'ERROR CODE {', 14 ,') LAST VALUE PUNCHED ON TA 

UPJLJiIlSJiQ.T__ -A^^._W.J.IiH_JJ:LUJE__6AJJ_.VAUJLE 'J. ___________ 

GO TO 811 

2Xii ______________________________________________ ____ 



821 FORMAK20X, 'ERROR CODE ( S 14 ,') LAST VALUE PUNCHED ON TA 
IfiJLlJLELIJLE-JzAfiE.. . mU EL) __________ ...... _____________ 

811 IF( ( I .GE. 10. AND. I .LE-29 } -OR . ( I .GE - 1010. AND. I.LE.1029) } 
1 GQ.._TO. 4Q1._ 

IF(u".GE.36.ANO.I.LE.4S)/OR.(I.GE.i63b.ANC. I . LE .T049> ) 
L_GQ .T_0,5.Q1__ ...... _______ _ _ ____ 

IF( ( i.GE.50.A|si6i.LE.79).GR.( I .GE.1050. AN : D. I.LE.1079)) 

1 GO TO 601 _______ ______ ___ __ 

IFM I.GE.80.AND.I.LE.89I JoP , U .G~E . lo'soVAND.'l". LE ,~1089 ) f 



1 GO TO 801 



IF( (I .GE, 100. AND. I. LE. 199) .OR. (I .GE. 1 100 . AND . I . LE. 1 1 99 
__ 1JL_GP_T.Q_9Q1 _ ___ __ ____ __ _ __ 

817 IFd.EO.lOOd) GO" fd"202" "" " "" " " " " ...... 

_J&U.EQ.20p_pJ_GQ_ig 201__ _ ____ 

GO TO 301 
_2 0,2 _ _ P.RI N I 1 Q Q j I 

1000 FGRMAT("20X, 'ERROR CODE=(" ,14, '") GOOD DATA TAPE-NO APPA 
__lfLENJ -ERRORS } ____ _ _ __ 

RETURN" " "" .................... "" 

201 PRINT_ 200p t l 
2000 ~FORMAT(20X* 'ERROR CODE= ( ' , 14 , ) ESTIMATED DATA AT SOME" 



RETURN 
3QL.P-BIM ?pQO, L 

9000 FORMAT (26x1 'E'RROR CODE is NOT VALID caoE = ' t IAJ 
RETURN 

401 PRINT 7000 
7.000 fQRMAT(2.QXf 'TIME LOSS 1 ) 
IF( I.LT.30) 11 = 1*1606 



GO ( 10,1 1,12, 3, 8, 8 18,8,8, 8,20, 21 ,22,2 3,24, 2 5, 26,8 
18f.8),ID_ 
'lO PRINT 1010 
GO JO 812 

11 PRINT lOil 

__G_0 I0_8_l? 

12 PRINT 1012 
GO I.OL 812 

13 PRINT 1013 
GO TO 812 

20 PRINT 1020 

_GO_JO 812 _ __ 

21 PRlNt 1021 
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GO TO 8J2__ 

22 PRJNT 1022 
GO TO 812 

23 PKlVf 1023 
GO TO 812_ 

2^ PK"INT 1024 

GO TO 812 

25 PRINT T025~ 



26 PRINT 1026 ~ ~ "~" "" ~ " 

GO T0_ 812 __ _ 

1010 FQRMAT(20X, 'T"lMER~ 'FAILURE"GAUGE'"'STOPPEb'T" " 

_.lQ.ll_FO^A_T(20X L aEAiF SWITCH_FAI_LURE_GAUGE RAN CONTINUOUSLY 

1 UNTIL BATTERY FAILED 1 ) " " "~ "" "~ "" " 

..1Q12__FORMATJ_20X, 'JIMBR F_A RURE^_INJFRMIJJANT OPERATION' ) 

1013 FORHAT(20X, 'TIMER FAILURE-TIME 01 FFEffENCE" 'AT"E"NO"~OF ">A 

--~ ? -r^^ AJ -^---"-"--^^--^ NOT BE ^N ASS1GMP 
ID 1 ) " -- -- 

-io.2_2._ FPRMAT ( 2gx , - L EA F SWITCH F_A i LURE ' i 

1023 FORMAT (20X 'BATTERY FAILURE'! 

JL0.2A_FQAMATJ..20_XjJ IMPROPER. TAPE JJIDEX ING ') 

1025 FORMAT(20X f "PUNCH MOfDR 6>ERATEriNtTRlfmANfr v"M 

Jfii^fORMATCJOX, i PUNCH MOTOR FAILURE') 

501 PRINT 6000 " 

MQ_Q_QRM_A T (_2Q X LLLUli. GAIN 1 ) 

IFd.LT.50J 11 = 1+ " 
J 0=11-1029 



30 "PRI'NT 1630" * ....... _______ 

iOap.fORHAT.lOX,.. TIMER. fMLURE.^k/^..MINyT,E^PUNCH.. INTERVAL '. 
GO^IQ 812_ 

601 PRIN'T "sodb" ..... ...... ------------------------------- ....... -- ......... - ........ 

.5000 FRRMU^x a.'Jh.CORRECI. RECORDS CODE - ) 

1MI.LT.80) 11=1 + 1000 ..... ------------------ ............ _____________ ..... 



- ____ 

52 PRINT 1052 
_______ GO_TO_ 8 1_2^ 

53 PRINT T'O 5 3 
_________ GO_TO_812 

54 PRINT fosV 
GO_J_Q 812 

55 PRINT~10?5 
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56 PRINT 1056 



57 PRINT 1057 
GO. 108.12 

58 PRINT 1058 

.GOJLCLJ3.12 .. 

59 PRINT 1059 



60 PRINT 1060 

.. ...... . .Gp_IQ 812. 

67 PRINT 1067 
__________ _GQ_!Q 812 

68 PRINT 1068 
____________ GO 10 812 

70 PRINT 1070 
_______ GO TO 812 

71 PRINT 1071 
_ __ GO JTQ. 812 

72 PRINT 10~72 

___________ GOJTO 812_ 

73 PRINT 1073 
___ GO TO 812 



78 PRINT 1078 

J50.JTQ 812 _ __ ____ 

79 PRINT 1079 ..... " "" ............ ...... 

....... _..&P._T.Q...8,12 

1051 FORMAT (*2~OX, 'GAUGE INSENSI TAT I VE AT SOME "POINT CN " RECQR~ 

1PM _______ 

1052 FORMAT (20X, * SNOW WI TH'""F(JNNEl"' IN PLACE ') 
.LQ..53...F.QMA.Ii.20X J iJ LNJAKE gtkl PROBLEM ) 

1034 FORMAT(20X, 'INTAKE PIPE STOPPED UPM 

i055_.JF.gRMAT(20X_ ? "OR I FT ING SNOW' } 

1056 FORMAT(20X, 'FOREIGN MATTER'"iN COLLECTOR 1 ) 

10.5_7_. FORMAT (JQX t 'CABLE BREAKAGE ) 

1058 FOR~MAT<20X, 'GAUGE TAMPERED WITH*") ........... " .............. 



__ 

1060 FORMAT <20X, ' PREC I P I AT ION LOSS NO REASON 1 ")" 
.1.067.._E.OAMATI[20X f PAPER JAPE S,UPPLY_ RAN OUT') 
1068 FORMAK20X, 'TIMER TURNED TO TEST POSITION') 
J^7_PJO.RMAT<20X, 'NOTCH OF hEIR PROBLEM ( I_CE ) M_ 
1071 FORMAT (20X, 'LOG JAMS OR DEBRE IN NOTCH') "" ..... ...... "" 

10I2_FCIM.Lt20X t 'VAUJE .GREATER _IHAN_RANG1_Q INSJRjJMJNT AT. 
1SOME POINT 1 ) " '" ' " ........ 

..1Q13_FORMATL2PX ? 'FLOAT TAPF 01 SJNGAGED. 'FROM^R-ECgROER ' ) 
1078 FORMATC20Xf MCE JAMMI NG( CAUSE HIGH G.H.)') ............. 

079 FQRMAT<2QXi : 'HEAVY ICED CREEK' 3 

701 PRINT 4000 ' "" ...... .............. "~" """ ................. ....... ' 

.iOOO_ i FOR^T12XtJJR.ACE_MAU : j^T^N CODE') 

IF(I.LT.90)IIl"+100'0 " " ..... " ....... ' 
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10=11-1079 . 

GO TO (80,81,82,8,8,8,8,8,8,8) , ID 

80 PJUN_L_!P80__ 

GO TO 812 
81 PRINT 1081 



GO TO 812 
82 PRINT 1082 



GO TO 812 

1.Q80 f PMATJ10Xj^!i^Ejy_I_THOllL_PIREC I_P_ITAT_I ONJ ) _ 
108Y~>QRMAT(20X, 'PRECIPITATION WITHOUT TRACE PUNCHES') 



801 PRINT 3000 

IPOO. FORMAT(20X, 'TRANSLATOR ERRORS' ) 
IFU.LT.100) ~II = I + 1000 
10=11-1089 



GO TO (90, 91i8i 8, 6, 8, 6, 8, 8,8), ID 
_ 90 PR I NJL !Q90 _____ _ _ __ ______ 

GO TO 812 
91 _ PRINT 1 091 _ _____ 

GO TO "812 " "~ ~" " ""' " ...... " ......... " ...... """' 

_JQ90_ F_ORMAT(2p_X, j^E_AD Hj[AO MALFUNCTION. AT SOI*E POINT ON REC 
lORD'f " " ............................. " 

.JL091 J=QJ*MATJ_2-OXj f MANNU.ALL_Y_ INSERJJ.Q 8EADJ_NG ON DOUBLE PUNCH 
1 WRONG') 



iO FORMAT(20X f 'COMPLEX ERfOR 

IfU..LT_.l_2j90J ll*l1000 

IF(II.GE.1135\AND".n.LE.Tl99T"GO To"8"" 
_________ J 0*1,1-1^091. ___ 

GO fo i i6orioo,To27iT3Yfol,i6^^^ 

UliiLli3j_U3jr .lii illliJLlIi.118 jl 1 ii!2CLi.m t U 2 1 1 23 ,124 , 1 

225,126,127,128,129,130, 131 , 13 1 , 133 f 134)", 1 6" ~ ....... " 



200 PRINT 1026 



102 PRINT 1080 
GO TO 200 



103 PRINT 1020 
J>00__PELN! 1082 
GO fo 812 
JQ5 __ PR.LNJL 102^ 

600 PRINT 1023 



.-_ 
106 PRINT 1024 



____ 
108 PRINT 102"0 
_7P-0__PRLNT l.Q 80 

GO TO 8l"2 
IX Q PRINT 1023 

GO T6"200 
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800 PRINT 1081 

_ILm.MZ 

113 PRINT 1024 

CL.m.J.QO 

115 PRINT 1012 

Q,._.^mi~13J?-.L 

GO TO 812 

117 Pfy.NT.l.Q7Q. 
PRINT 1054 
OP TO B12 

118 PRINT 1060 
BQ6 PRINT IQ24 

GO TO 812 

119 PKI.N.T..i.Ql3, 

803 PRINT 10b2 
PRINT 10 5 
GO TO 812 

ip PRJ.NLT 1023 

GO TO 803 

121 PRINT 1024 

804 PRINT 1052 
GO JO 812 

122 PRINT 1024 
GO TO 804 

123""TR!NT"T024 

8Q.5 PRINT 1057 

GO TO 812 

.1.24 PRINT 1Q24 

GO TO 805 

U8S PRI.NT IQ55 

GO TO 804 

126 PRINT 10,52 
GO TO 200 

127 PRINT 1013 
GO TO 700 

12B PRINT LQ23 

GO TO 700 

129 PRINT 1030 
GO TO 200 

130 PRI.NT 1081 
GO TO 806 

131 PRINT 1024 

BO? PRINT" i'ogi 

Gti 10 812 

133 PRINT 1072 

PRINT 1P^3 

GO TO 812 

134 PRINT 102Q 
G0fo""806" 
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8 PRINT 80001 



80001 FORMAT(20Xt 'ERROR CODfc HAS NOT BEEN ASSIGNED 1 ) 

812 RETURN __ 

END 

BLOCK DATA 



CQMMON/BLK4/LLL(12)/BLK5/TR<2). 

DATA LLt/31 ,28,31>30,31f3Qr31f3 Lf_30 j 3_1 j_30 j 3 1 / , J R / 1 H 
1HT/ 
END 
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